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\0 GENERA*. P«0GRV1 IHfORIV^UQN. 

Program Purpose (Abstract) 

This program has the ability to test memory from address 
000000 to address 7S7777. It does so using: 

A. Unique addressing techniques 

B. Worse case ncise patterns, and 

C. Instruction execution thruout memory. 

There is also a special routine to type out all unibus 
address ranges which do not timeout, as well as two(2) toggle 
in address tests provided in section 6.1 of this document. 

The intent of this program is to test as comprehensively as 
possible all memory systems manufactured by DEC without 
concentratinq on any one system. Although the tests relate 
to general designs they may be complete for certain systems. 
E.G. Any core memory from the 8K l-L on up need not have 
any other addressinq or worst case patterns run but in order 
to completely test tne MS11-K HOS memory another diagnostic 
is reouired. This test is also not intended to be a 100Z 
test of the memory. Other tests that do J/0 may find memory 
problems that this test is unable to. 



1.2 System Requirements 

A. Hardware Requirements 

PDPn family processor with a minimun of 16K of memory. 

optional 

Any parity memory control module. 
KTII memory management. 

B. Software Requirements 

The smallest unit of memory this program wilt recognize 
is AK. If any address in a 4< bank causes a time out 
trap, that entire bank of memory is ignored by the 
program. 

The program is designed to exercise the vector portion of 
memory (locations 0-776) in exactly the same manner as 
the rest of memory. To make this possible, without 
requiring memory management, no software traps are used 
in the program. This means that if menwry management is 
not available or is disabled (Syi2=1), if the program is 
relocated out of bank 0, if location 0-776 are selected 
for test, and if an unexpected hardware trap occurs, the 
results will be unpredictable. 



F1 

C/QMCGO 0-ia4K MEM EXER 16K 

SEO OOOS 

The program has the proper interface code to allow 
running under the automated manufacturing test line 
system - ACT11 and APT. 

1.^ Related OociJiients and Standards 

A. Progr*i»Bing Practices - Dociment No. 175-003-009-0"' 

B. POP-11 HAINDEC SVSrtAC Package - MAINDEC-11-DZQAC-C2-D 

C. The applicable nemory System Maintenance Manual 

D. The applicable Circuit Schematics 

Diagnostic Hierarchy Prerequisites 

Before running this program, a CPU diagnostic should be run 
to verify the functionality of the processor and POP-ll 
instruction set. 

If memory management is to be used, t-^-en the KT11 diagnostic 
should also be run before this program. 

POP-11/20 - MAINDEC-11-DZQKC 
PDP-11 /3A - MAINDEC-11-DFKTH 
PDP-11 /AO - MAINDEC-11-DeOEA 
OR MAINDEC-11-DCOKC 
P0P-n/A5 - rAINDEC-11-DCOKC 
PDP-n/60 - f^INDEC-n-DOKDA 
KT11-C - MAINDEC-II-DCKTA THRU DCKTF 
KTll-D - MAINDEC-n-OeKTA THRU DS^TF 

^.5 AssLinptions 

This prograw asstnes the correct operation of the CPU and, if 
used, the memory management option. 

2.0 OPERATING INSTRUCTIONS 

2.1 Loading and Starting Procedures 

2.1.1 Load the program using any standard absolute loader. 

2.1.2 Starting address 200: 
Normal program execution. 

2.1.3 Starting address 204: 

Allows the operator to input, wia teletype conversation, 
first and last addresses to be exercised, and a data pattern 
to be used in tests 6 and 7. 

2.1.4 Starting Address 210: 

Restart program using previously selected parameters. 
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Restore loaders and halt. This routine is capable of 
relocating the program back to banks 0 and T if the program 
was halted while running the top two banks of memory. There 
are special procedures required for this situation. 

A. If memory addresses 0-1000 have not been exercised, 
either through parameter selection (SA=20<») or by running 
with SW05=1, then: 

Load Address ?^ , 
Press START. 

B. If running without memory management, then: 

Load Address <2K>re location factor> 
(Relocation factor is typed when the program is 
relocated). 
Press START. 

C. If running with memory management and the unibus has not 
been initialized (via reset instruction, start switch, 
etc.), then: 

Load Address 777707 (PC) 
Deposit 214 
Press CONTinue 

D. If running with memory management and the unibus has been 
initial ized: 



Load Address 
Depos i t 
(Example: 

Load Address 
Depos 1 t 
Load Address 
Deposit 
Press 



77Z3A0 (KIPARO) 
<(relocation factor)/100> 
Relocation factor=540000, then 
deposit 005A00) 
777^72 (SRO) 
000001 

777707 (PC) 
214 

Continue 



Starting address 220: 

Byte address memory map tvpeout routine. This routine 
performs OATI. DATIP, DATO, and DATOS on all possible 
addresses, and types the ranges of addresses which do not 
cause a timeout trap. 

2.2 *ipecial Environments 

If the program is '■un in quick verify mode under ACT11 or 
APT11 the program is done after the first pass. Also, the 
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program does not relocate to test the lOMer 8k of memory. 
2.1 Program Options 
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SW15 
SWU 
SU13 
SW12 

SW11 

SWIO 

SW9 

SW8 

SU7 

SU6 



1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 

1 OR UP... 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUT 

INHIBIT MEMORy MANAGEMENT (INITIAL 
START ONLV) 

INHIBIT SUBTEST ITERATION 

RING BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEoi IN SWR<A:0> 

INHIBIT PROGRAM RELOCATION 

INHIBIT PARITY ERROR DETECTION 



NOTE: With parity error detection enabled, a memory failure 
while running the worse case noise tests (non-parity) 
tan cause a parity error. The error printout on a 
parity error does not type the good data. Thus a bit 
drop or pickup will not be typed as such. It is best 
to run the program for 1 pass with parity disabled, 
then, restart the program with parity enabled. 
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1 OR UP 



INHIBIT EXERCISING VECTOR AREA 
(LOCATIONS 0-1000^. 



2A EXECUTION TIMES 

Execution time is dependent on type of memory, and amount of 
memory. Worse case run times witn 900ns memorys are: 

a. For Non-Parity Memory 

First Pass: 65 seconds for first 16k ♦ 15 

seconds for each additional 16k. 

Full Pass: 3 minutes AO seconds for first 16k ♦ 

3 minutes for each additional 16k. 



Iteration Inhibited: same as first pass 



b. For Parity Memory 

First Pass: 1 minute AO seconds per 16k. 
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Full Pass: 8 minutes per 76K 

Iteration Inhibited: s«r« as first pass 



3.0 ERROR INFORMATION 



5.1 Error Reporting 

There are a total of 31 (8) types of error reports generated 
by the progrMn. Some of the key coltnn heading mnemonics are 
described below for clarity: 

PC = Program Counter of error detection code. 
(V/PC=P/PC) 

V/PC = Virtual Program Counter. This is where the error 
detection code can be found i'^ the program listing. 

P/PC - Physical Program Counter. This is where the error 
detection code is actually located in memory. 

TRP/Pf = Physical Prog'-am Counter of the code which caused a 
trap. 

MA - Memory Address 
REG = Parity REGister address. 
PS = Processor Status word. 
lUT = Instruction Under Test. 
S/8 = What contents Should Be. 
WAS = What contents WAS. 



3.2 Error Halts 

With the 'HALT ON ERROR' switch (SW15) not set there are 
several programmed 'HALTS' in the program: 

A. In the error trap service routine for unexpected traps to 
vector A. This one will occur if a 2nd trap to 4 occurs 
before the error report for the first has had a chance to 
be printed out. 

B. In the relocation routine if the progr^vn is being 
relocated back to the first 8K of memory and the program 
code was not able to be transferred properly. 

C. In the case of error reporting and there is no terminal 
to allow the information transfer. 
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SEQ 0O09 

D. In tn« power tail routine if the power up sequence was 
started before the power down sequence had a chance to 
ccfflplete itself. 

E. In the nemory mapping routine or any of the address 
control routines, failures to find a meaningful map. 



4.0 PERFORMANCE AND PROGRESS REPORTS 

Not applicable 



5.0 DEVICE INFORMATION TABLES 

The following is a picture view of a parity control status 
registers, which will show bit assignments and definitions, 
to provide a handy reference: 



5.1 CORE PARITY REGISTER 



I I I I I ! I I I I I I I I I I I 
:PE: .' ! ! ADDRESS I I !yPl !AE! 

I I I I I I I I ' I I I I I I I I 

15 H 13 12 11 10 09 08 07 06 05 04 oi oForOo" 

Bit assignments are defined as foUows: 

BIT15 PARITY ERROR 

BITS 11-5 ERROR 
ADDRESS HIGH ORDER 
ADDRESS BITS Of 
ADDRESS OF PARITY 
ERROR (BITS 17-11 OF 
ADDRESS) 

BIT02 yRITE WRONG 
PARITY NORMAL PARITY 
(ODD) WHEN CLEAR; 
OTHER PARITY (EVEN) 
WHEN SET 

61 TOO ACTION ENABLE NO 
ACTION WHEN CI EAR TRAP 
TO VECTOR 1U WHEN SET 
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I I I I I I I I I I I I I I I I I 

I p£ I I I I I I I I I I I I I gp I ' AE ' 

i i i i i i i i i i i i i i i i i 

15*14 13 13 11 10 09 08 07 06 05 04 03 02 01 00 
BIT ASSIGNMENTS ARE DEFINED AS FOLLOWS: 

BIT15 PARITY ERROR 

BJT02 WRITE WRONG 
PARITY NORMAL PARITY 
(ODD) WHEN CLEAR: 
OTHER PARITY (EVEN) 
WHEN SET 

81 TOO ACTION ENABLE NO 
ACTION WHEN CLEAR TRAP 
TO VECTOR IK WHEN SET 

5.3 MSn-K CSR 



I I I I I I I I I I I I I I I I I 
!DE! !SI! ! ADDRESS !SE!IP.'DCiEC!EEI 

I I I I I I I I _I I I I I I I I I 

15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

BIT ASSIGMCNTS ARE DEFINED AS FOLLOWS : 

BIT15 DOUBLE ERROR 

BIT 13 SET INHIBIT 
MODE WHEN THIS BIT IS 
SET TO A 1, IT ENABLES 
THE INH MODE POINTER 
TO INHIBIT EITHER THE 
FIRST OR SECOND 16K 
FROM EVER GOING INTO 
THE DIAG. CHECK OR 
ECC DISABLE MODE. 

BITS 11-5 ERROR 
ADDRESS WHEN BIT02 
CLEARED CONTAINS HIGH 
ORDER BITS OF ADDRESS 
OF PARITY ERROR (BITS 
17-11); WHEN BIT02 
SET CONTAINS CHECK 
BITS FOR ECC. 

BIT04 SINGLE ERROR SET 
WHENEVER SINGLE ERROR 
OCCURS 



SEQ 00' 



CZQMCGO 0-124K MEM EXER 16lC 



8IT03 irt^IBIT MODE 
POINFER THE INHIBIT 
MODE POINTER WORKS IN 
CONJUNCTION WITH THE 
SET INHIBIT MODE 81 T. 
WHEN BIT 13 IS SET TO 
A 1. A 16K PORTION OF 
MEMORY IS INHIBITTED 
FROM OPERATING IN THE 
ECC DISABLE MODE OR 
DIAGNOSTIC CHECK MODE. 
THE INHIBIT MODE 
POINTER INDICATES 
WHICH 16K IS BEING 
INHIBITED.,. BIT 3 =1 

THE SECOND ^6K OF 
MEMJRY IS INHIBITTED. 
WHEN BIT 13 IS SET TO 
A 0. BIT 3 BECOMES 
INOPERATIVE. 

BIT02 DIAGNOSTIC CHECK 
A WHEN SET ENABLES 
READ-WRITE OF CHECK 
BITSCSEE BITS 11-5) 

BITOT DISABLE ERROR 
CORRECTION WHEN SET NO 
ERROR CORRECTION TAKES 
PLACE 

81 TOO DOUBLE ERROR 
ENABLE WHEN SET 
ENABLES TRAP TO VECTOR 
IK ON DOUBLE ERROR. 



6.0 SUB-TEST SUMMARIES 



6.1 Section 1: Address Tests. 

These tests verify the uniqueness of every memory address. 

TEST 1 Writes and reads the value of each memory Word 
Address into that Memory Location. After all memory has been 
written, all locations are checked again. 

TEST 2 Writes the byte value of each address into that byte 
location and checks it. 

TEST 3 Writes the complement of each word address into that 
location and checks it. 
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TEST 4 Writes the 4K bank ntjiiber into each byte of that bank 
and checks it. 

TEST 5 Writes the coiiiplement of the bank ncmber into each 
byte of that bank and checks it. 



6.2 Section 2: Worst Case Noise Tests. 

These are intended to apply maxinun stress to the various 
types of POP-11 core menwries. 

TEST 6 and TEST 7 Are supplied to allow the operator to 
select a single word data pattern (SA=204) and SCOPE on 
either the writing (DATO) in TEST 6 or the reading (DATI) in 
TEST 7 of that data. 

TEST 10 Writes and then checks a series of single word 
patterns which are designed to stress parity memory. 

TEST 11 Writes all memory with 1's in every bit and then 
•T»ipples" a 't)" through it. 

TEST 12 Writes all memory with O's in every bit and then 
•?»ipples" a "T* through it. 

TEST 13.K,15, AND 16 Write a pattern which complements when 
address BIT 3 XGR BIT 9 complements. 

TEST 17 Writes wrong parity in each byte of memory and 
checks that the parity detection logic works. This test is 
skipped tor non-parity memory. 

TEST 20 Write "random" program code through memory and 
checks it. 



6.3 Section 3: Instruction Execution Tests. 

This group of tests place instructions in the memory under 
test, then executes the instructions, and finally, checks 
that they executed correctly. 

TEST 21 Executes an instruction which does a DATI and a DATO 
on the memory under test. 

TEST 22 Executes an instruction which does a DATI and a 
OATOB on the low byte of memory under test. 

TEST 23 Executes an instruction which does a DAT! and a 
DATOe on the high byte. 

TEST 2A Executes an instruction which does a DATIP and a 
DATO. 
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TEST 25 Executes an instruction which does 
OATOe on the low byte. 
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a DATIP and a 



TEST 26 EXECUTES AN INSTRUCTION UHICH DOES A DATIP and 
DATOB on the high byte. 



6.4 Section A: Mos Tests 

TEST 27 -Writes a pattern of 000377 throuqh memory, tften 
complifflents it addressing downward, compliments the new 
pattern addressing upward, compliments the third pattern 
addressing upward and finally compliments this new AB 
patterns addressing downward. 



TEST 30-31 Write a checkerboard through memory then 
for 2 seconds and then verifies no data has changed. 



stalls 



6.5 Special Toggle In Tests 

6.5.1 Toggte-in-program #1 

The following is a toggle in memory address test. This test 
is useful when an address selection failure is suspected 
involving the first 8K of memory. This program writes the 
value or each address into itself starting with the lower 
limn and continuing to the upper limit. After all addresses 
have been written each address is checked for the correct 
contents starting with the upper limit and continuing to the 
lower limit. 



LOCATION 


CONTENTS 


10 


012700 


• 12 


000050 


U 


010001 


16 


020037 


20 


177570 


22 


001403 


2A 


010010 


26 


005720 


50 


000772 


32 


010004 


34 


020001 


» 36 


001767 


40 


024000 


42 


001774 


44 


000000 


46 


000772 



1$: 



2$: 
3$: 



MNEMONIC 
MOV #50. RO 



MOV R0,R1 
CMP RO,a#SUR 

BEQ 2$ 
MOV RO.(RO) 
TST (R0)+ 
BR 1$ 
MOV R0,R4 
CMP R0,R1 
BEQ 1$ 
CMP -{RO),RO 
BEQ 3$ 
HALT 
BR 3$ 



COMMENT 
GET FIRST ADDRESS 
TO TEST 

(EXAMPLE START ADDRESS) 

SAVE IN R1 

CHECK UPPER LIMIT 

(IN SWITCH REGISTER) 

BRANCH IF AT UPPER LIMIT 

LOAD VALUE INTO ADDRESS 

STEP TO NEXT ADDRESS 

LOOP UNTIL DONE 

SAVE UPPER LIMIT 

CHECK If AT LOWER LIMIT 

BRANCH IF DONE 

CHECK DATA WRITTEN 

BRANCH IF OK 

ERROR 

LOOP BACK 



After toggling the program LA=10**set upper limit**, start 
NOTES: The upper limit address obtained from the switch 
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register may be changed during program operation. 
However occasionally the program may halt because of 
'SWITCH BCXMCE'. (The best procedure when changing 
limits is to stop the program make the change and 
continue.) The lower limit address (12) may be patched 
to any desired address. 

6.5.? Toggle-in-Program #2 

The following is also a toggle in program to be used with 
toggle-in-program #1 for more complete address testing. Thi> 
program writes the complement value of each address into 
itself startina with the upper limit and continuing to the 
lower limit. ATter all add'-esses have been written each 
address is checked for the correct contents starting with the 
lower limit address and continuing to the upper limit. 
Toggle in the following patches to the program above. 

These are the patches to toggle-in-prcgram #1: 

COWENT 

.-CHANGE LOWER LI HIT 
.•BRANCH TO PRO(JRA« #2 



Caf€NT 

GET UPPER LIMIT 
COMPLEMENT ADDRESS 
CHECK IF AT LOWER LIMIT 
LOOP UNTIL DONE 
CHECK IF AT UPPER LIi^IT 
GO TO PROGRAM 1 IF DONE 
GET VALUE Of ADDRESS 
COMPLEMENT VALUE 
CHECK ADDRESS 
BRANCH IF OK 
ERROR 

GO CHECK NEXT ADDRESS 
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LOCATION 


CONTENTS 




MNEMONIC 


12 


100 






36 


001404 




BEQ 4S 


These are the additions to toggle 


LOCATION 


CONTENTS 




MNEMONIC 


50 


010402 


4S: 


MOV R4,R2 


52 


005142 


5$: 


COM -(R2) 


54 


020201 




CMP R2.R1 


56 


001375 




W. 5$ 


60 


020204 


6S: 


CMP R2,R4 


62 


001755 




BEO IS 


6A 


010203 




MOV R2,R3 


66 


005103 




COM R3 


70 


020122 




CMP R3,(R2;* 


72 


001 772 




BEO 6$ 


74 


000000 




HALT 


76 


000770 




BR 6S 



7.0 PROGRAM FUNCTIONAL FLOW CHARTS 
Attached 



8.0 PROGRAM LISTING 
Attached 
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001100 



000011 
000012 
000015 
000200 
1 77776 

y7777t, 
\77772 
y77^7^ 
y77^7^ 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
0«T0007 
000006 



S8TTL 
• 



OPERATIONAL SWITCH SETTINGS 



SWITCH 

"is" 

K 
13 
12 
11 
10 
9 
8 
7 
6 
5 



USE 



.58TTL BASIC DEFINITIONS 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT KT11 (AT START TIME ONL>) 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<4:0> 

INHIBIT PROGRAM RELOCATION 

INHIBIT PARITY ERROR DETECTION 

INHIBIT EXRERCISING VECTOR AREA. 



1100 



.♦INITIAL ADDRESS OF THE STACK POINTER ••♦ 
STACK 1100 

.EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT.SCOPE .-.BASIC DEFINITION OF SCOPE CALL 



.••MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 



HT= 
LF= 
CR= 
CRLF= 
PS= 
.EOUIV 



11 
12 
15 
200 
177776 
PS.PSW 



STKLMT= 17^774 
PIRQ= ^77772 
DSWR= 177570 
DDISP= 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.••GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
Rl- 
R2= 
R3- 
R4= 
R5 
R6- 
R7- 
SP 



XO 
XI 
X2 
X3 
Z4 
X5 
Z6 
X7 
26 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 



CZQMi 
C2QHI 



GO MEMORY EXERCISER. 

G.P11 12-MAR-80 13:07 

000007 



000000 
0000^0 
000100 
OOOKO 
000200 
000240 
000300 
000340 



16K 



VER 
BASIC 

PC= 



MACYll 30A(1052) 
DEFINITIONS 



F 2 

12-«AR-80 
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17 



•PRIORITY LEVEL 



PR0= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR 7= 



0 
40 
100 
KO 
200 
240 
300 
340 



;; PROGRAM COUNTER 

DEFINITIONS 

;PRI0RITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



100000 


Sul5= 


100000 


040000 


SU14= 


40000 


020000 

V t WW 


SW13= 


20000 


010000 

V • WW 


SU1 2= 


10000 


004000 

W^ wv 


swn= 


4000 


002000 

Wb WW 


SWIO" 


2000 


001000 


SW09= 


1000 


00-0400 


SW08= 


400 


000200 


SW07= 


200 


000100 


SW06= 


100 


000040 


SW05= 


40 


000020 

^^^^^^^^^ V 


SW04= 


20 


000010 


SW03= 


10 


000004 


SW02= 


4 


000002 


SW01 = 


2 


000001 


SW00= 


1 




•EOUIV 


SW09,SW9 




.EOUIV 


SW08,SU8 




.EOUIV 


SW07.SW7 




•EOUIV 


SW06,SW6 




.EOUIV 


SW05,SU5 




.EOUIV 


SW04,SU4 




.EOUIV 


SW03.SU3 




.EOUIV 


SW02,SU2 




.EOUIV 


SW01.SW1 




.EOUIV 


SWOO,SWO 




; "DATA 


BIT DEFINI 


100000 


BIT15= 


100000 


040000 


BIT14= 


40000 


020000 


8IT13= 


20000 


010000 


BIT12= 


10000 


004000 


BIT11= 


4000 


002000 


BIT10= 


2000 


001000 


BI T09= 


1000 


000400 


BI T08= 


400 


000200 


BIT07= 


200 


000100 


BIT06= 


100 


000040 


BIT05= 


40 


000020 


BI T04= 


20 


000010 


BI T03= 


10 


000004 


BIT02- 


4 


000002 


BIT01 


2 



.••••SWITCH REGISTER'^ SWITCH DEFINITIONS 



(BJTOO TO BJT15) 
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C2QHCG.P11 12-mR-80 15:07 BASIC DEFINITIONS SCO 0019 

(1) 000001 BITOO= 1 

(1) .EOUIV BIT09.8IT9 

(1) .EQUIV BIT08.8IT8 

(1) .EOUIV BIT07.8IT7 

H) .EOUIV BIT06.8IT6 

(1) .EOUIV 8IT05.8IT5 

(') .EOUIV BIT04.8IK 

(1) .EOUIV BIT03.8IT3 

M) .EOUIV 8IT02,8IT2 

H) .EOUIV BITOI.Bin 

(1; .EOUIV BIT0O,8IT0 
(1 ^ 

(1) ;*8ASIC ""CPU" TRAP VECTOR ADDRESSES 

H) 00000^. ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 

000010 RESVEC= 10 ; .-RESERVED AND ILLEGAL INSTRUCTIONS 

M) OOOOU T8ITVEC=U ;;'7"BIT 

(1) OOOOU TRTVEC= U ;; TRACE TRAP 

M) OOOOU BPTVEf- U .-.-BREAKPOINT TRAP (8PT) 

(1) 0000^0 IOTVEc= 20 ;; INPUT/OUTPUT TRAP (lOT) ••SCOPE** 

(1) 000024 PWRVEC= 24 .-.-POWER FAIL 

M) 000030 EMTVEC= 30 .-.-EMULATOR TRAP (EMT) ••ERROR** 

(1) 000034 TRAPVEC=34 ;;* TRAP" TRAP 

(1) 000060 TKVEC= 60 ;;TTy KEYBOARD VECTOR 

(1) 000064 TPVEC= 64 ;;TTY PRINTER VECTOR 

(1; 000240 PIR0VEC=240 .-.-PROGRAM INTERRUPT REQUEST VECTOR 

6187 
6188 

6189 .S8TTL MEMORY MAfiAGEMENT DEFINITIONS 
(1) 

(1> ;*KT11 Mir ■> ADDRESS 
(1) 

(1) 000250 MMVEC= 25C 
(1) 

(1) .••KT11 STATUS REGISTER ADDRESSES 
(1) 

(1) 177572 SRO= 177572 

(i; 177574 SR1= 177574 

(1) 177576 SR2- 177576 

(1) 172516 SR3= 172516 
(1) 

(1) .•♦KERNEL '"I" PAGE DESCRIPTOR REGISTERS 
(1) 

(1) 172300 t<IPDRO= 172300 

(1) 172502 KIPDRU V2302 

(1) 172504 KIPD«2= 172304 

(1) 172506 KIPDR3= 172306 

(1) 172310 KIPDR4- 172310 

(1) 172312 KIPDR5= 172312 

(1) 172514 KIP0fi6= 172314 

(1) 172516 KIPDR7= 172516 
H) 

(1) .••KERNEL "I" PAGE ADDRESS REGISTERS 
(1) 

(1> T 72540 KIPAR0= 172340 

(1) 172542 KIPARU 172342 

M) 172544 KIPAR2 172344 



CZQWCGO 0-12^n f^nORr EXERCISER. 
CZQMCG.Pn i2-mR-80 13:07 



(1 ) 
(1 ) 
(1 J 
(1) 
c: 
(1 ; 
6190 
6191 
6192 
6193 
619<. 
6195 
6196 
6197 
6198 
6199 
6?00 
6201 
6202 
620^ 
:i) 
1 ) 
1 ) 
1 ) 
1) 
1^ 
1 ) 
1) 
1) 
1) 
6205 
6206 
6207 
6208 
6209 
6210 
6211 
6212 
6213 
62U 
6215 

:i 

2 
1 
1 
1 
1 
1 
1 
1 



000174 
000176 

000200 
00020A 

000210 
0002K 
000220 



000004 
000006 



172346 
172350 
172352 
172354 
1 723';6 

000000 
000006 



000001 
000114 



017777 
1 77746 

000000 



000174 
000000 
000000 

000137 
000167 

000167 
000167 
000167 

000004 
025124 
000000 



000010 

000046 
000046 014232 

000052 
000052 040000 

000010 



H 2 

16K vER NACvn 30A(1052) 12-*VW-80 

MANAGEMENT DEMNITIQNS 

KIPA«3= 172346 

KlPAft4= 172350 

icIPAR5= 172352 

KIPAR6= 172354 

icIPAR7= 172356 
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SEO 00^'C 



002650 
002446 

000064 
000064 
003406 



UP = 0 
RW = 6 



.CODE FOR UPWARDS MAP IN Mf« P^GWI PDR'S 
;CODE FOR READ/JRITE IN MEW M(/1T PDR'S 



.•PARITY ACTION ENABLE 
.PARITY TRAP VECTOR 



.-MASK FOR 4K ADDRESS BANK BOUNDRY. 



PARITY MEMORY DEFINITIONS. 

AE=1 

PARVEC=114 

;• MISCELLANEOUS ASSIGNMENTS 
MASK4K= }7777 

CACHE REGISTER DEFINITIONS. 
IMPCHF- 177746 

.S8TTL TRAP CATCHER 

.=0 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2.HALT'* 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 ; .-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 ..SOFTWARE SWITCH REGISTER 

.S8TTL STARTING ADDRESS(ES) 

JMP arSTART .-.-JUMP TO STARTING ADDRESS OF PROGRAM 



JMP 

JMP 
JMP 
JMP 



SELECT 

RE STAR 
RES TOR 
TIMOUT 



STARTING ADDRESS TO ALLOW THE OPERATOR TO 
SELECT VARIOUS PARAMETERS. 
RESTART ADDRESS, USING PREVIOUS PARAMETERS. 
RESTORE LOADERS TO END OF MEMORY AND HALT. 
TYPE OUT MEMORY MAP. BYTE BY BYTE. 



.=ERRVEC 
.WORD ERRTRP 
.WORD 0 

.S8TTL ACT11 HOOKS 

***************************************************************** 

;HOOKS REQUIRED BY ACT11 

$SVPC=. .-SAVE PC 
.=A6 

SENDAD ;;1)SET L0C.A6 TO ADDRESS OF lENDAD IN .lEOP 
.=52 

.WORD BIT14 ;;2)SET LOC.52 TO BIT14 

.-SSVPC ;; RESTORE PC 



^ZQMCGO MEMORY EXERCISER. 16*c VER MACVll 30A(1052) 

CZQMCG.PH 12-MAR-80 13:0? ACT11 HOOCS 



I 2 
12-MAR-80 
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SEO 00?1 



6217 

6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 



000300 



.=300 



000300 
000302 
00030A 
000306 
000312 
000316 
000320 
000324 
000330 
000332 
000340 
000342 
000346 
000352 
000356 
000360 
000362 
000366 
000370 
000374 
000400 
000404 
000410 
000414 
000420 
000424 
000432 
000434 
000440 
000444 
000446 
000450 
000452 
000456 
000460 
000462 
000466 
000472 
000476 
000500 
000502 
000504 
000510 
000512 
000516 
000522 
000524 
000530 
000532 



005005 
000401 
010705 
012706 
005767 
001002 
000167 
005767 
001470 
032737 
001034 
012700 
012701 
012720 
005301 
001374 
012700 
005020 
012720 
012720 
012720 
012720 
012720 
012720 
012720 
012737 
005000 
016701 
016702 
006202 
006001 
103404 
062700 
100372 
000000 
010037 
000137 
062700 
006202 
006001 
103373 
010037 
000410 
016700 
062700 
010006 
062700 
000110 
022767 



000200 



172340 
000472 
000200 



172342 

000062 
001100 

177432 

000003 



THE FOLLOWING ROUTINES ARE LOCATED IN THE VECTOR AREA (0-1000) SO THAT 
THEY CAN BE PROTECTED BY SELECTING SW05 (SEE DOCLflENT FOR USE OF SW05) 
THE CODE CAN ALSO BE RUN FROM ANY BANK OF MEMORY. ASSUMING MEMORY 
MANAGEMENT IS DISABLED BY "CONSOLE START". 



001100 
001206 

002340 
000256 

000001 177572 

172300 
000010 
077406 



172340 

000200 
000400 
000600 
001000 
001200 
001400 
007600 
000001 

000142 
000140 



RE STAR: 

RESTOR: 
REST1 : 



REST2: 



1$: 



17757? 



2$: 



3$: 



4$: 
5$: 



10$: 



000042 20$: 



CLR 

BR 

MOV 

MOV 

TST 

BNE 

JMP 

TST 

BEQ 

BIT 

BNE 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

ASR 

ROR 

BCS 

ADD 

BPL 

HALT 

MOV 

JMP 

ADD 

ASR 

ROR 

BCC 

MOV 

BR 

MOV 

ADD 

MOV 

ADD 

JMP 

CMP 



R5 

RESTl 
PC, 

fSTACK. 
MEMMAP 
REST2 
STARTA 
MMAVA 
10$ 

*8IT0. 
2$ 

#KIPDR0.R0 
#8.. R1 
#077406. (RO)* 
Rl 
1$ 

#KlPAfiO.RO 
(RO)* 



R5 
SP 



a#SRO 



#200. 
#400. 
#600. 
#1000. 
#1200. 
#1400, 
#7600. 
#81 TO, 
RO 

PRGttAP, Rl 
PRGnAP*2,R2 
R2 
Rl 
4$ 

#200, 
3$ 



RO, 

a#5$ 

#200, 
R2 
Rl 
5$ 
RO, 
20$ 

RELOCF . 
#STACK. 
RO. 

#20$-STACK.RO 

(RO) 

#3. PRGMAP 



CLEAR FLAG TO INDICATE RESTART. 
60 RESTORE PROGRAM BEFORE RESTARTING. 
PUT DATA INTO FLAG FOR RESTORE. 
SET UP THE STACK POINTER. 
CHECK IF THE MEMORY HAS BEEN MAPPED. 
BR IF MEMORY MAPPED. 
60 START 

CHECK IF MEM MGMT AVAIL>V8LE. 
BR IF NO MEM M6MT. 
CHECK IF MEM MGMT ACTIVE. 
BR IF MEM M6MT ALREADY SET UP. 
POINT TO FIRST MEM MGMT DDATA REG. 
SET UP COUNTER. 
MAP FIRST 28K l-FOR-1. 
COUNT RE6ESTERS. 
BR IF MORE RE6 

POINT TO FIRST'mEM M6MT ADDRESS REG. 
PARO MAPPED INTO BANKO. 
PARI MAPPED INTO BANKI . 
PAR2 MAPPED INTO BANK2. 
PAR3 MAPPED INTO BANK3. 
PAR4 MAPPED INTO BANK4. 
PARS MAPPED INTO BANK5. 
PAR6 MAPPED INTO BANK6. 
PAR7 MAPPED INTO BANK37. 
ENABLE MEM M6MT. 
INIT TEMP PAR RE6. 
6ET THE PROGRAM MAP...LO 64K. 
...HI 64K. 

SHIFT THE MAP POINTER... HI 
.. .LO. 

BR WHEN FIRST BANK FOUND. 
UPDATE TMP PAR TO NEXT BANK. 
BR IF MORE. 
.•FATAL ERROR!.'.' MAP EMPTY? 
a#KIPARO .-PUT TEMP PAR INTO FIRST PAR. 

JUMP INTO PROGRAM IF NOT THERE ALREADY. 
KEEP UP0ATIN6 TEMP PAR RE6. 
SHIFT POINTER... HI 
...LO 

BR IF TOP BANK NOT YET FOUND. 
;SET UP SECOND PROGRAM ANK POINTER. 
8R TO RELOCATE SECTION. 
6ET RELOCATION FACTOR. 
SET UP STACK POINTER. 
SET STACK TO RELOCATE PROGRAM. 
ADJUST RO TO RELOCATED *?0$" ADDRESS. 
GO TO '?0$" (RELOCATED). 
CHECK IF PROGRAM IS IN BANKS 0 AND 1 . 



(R0) + 
(RO)* 
(RO)* 
(RO)* 
(R0) + 
(RO)* 
(RO)* 
a#SRO 



RO 



RO 



a#KIPARl 

RO 
RO 
SP 



CZQMCGO 0-1?^K MEMORY EXERCISE'^. ^tK VER MACrll 50A(1052) 
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SEO 0022 



6273 
6274 
6275 
6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 



000540 
000542 
000546 
000550 
000552 
000556 
000562 
000S66 
000572 
000574 



000600 
000602 
000606 



001402 
004767 
005705 
001006 
005067 
105067 
000167 
004767 
000000 
000167 



000000 
000000 
000000 



016324 



000412 
000320 
005326 
016506 

002064 



000000 



21 S: 



22$: 



BEQ 
JSR 
T5T 
BNE 
CLR 
CLR8 
JMP 
JSR 
HALT 
JMP 



21$ 
PC. 
R5 
22$ 

$TIMES 
$TSTN« 
START1 
PC. 



RELO 



8R IF IN BANKS 0 AND ^ , 

RELOCATE THE PROGRAM BACK TO BANKS 0 AND 

CHECK RE START /RE ST ORE FLAG. 

BR IF RESTORE. 

CLEAN UP BEFORE STARTING. 



.•RESTART WITH PREVIOUSLY SELECTED PA.RAMETERS. 
RESLDR .-RESTORE THE LOADERS TO THE '70P" OF MEMORY. 
.-HALT AFTER RESTORING THE LOADERS. 
STARTA .-CONTINUE WILL RESTART THE PROGRAM. 

• THE FOLLOWING LOCATIONS ARE USED BY THE ABOVE ROUTINE AND MUST BE LOCATFD 

• BELOW 1000 TO INSURE CORRECT OPERATION UNDER THE WIDEST VARIETY OF 



CIRCl/ISTANCES. 
RELOCF: .WORD 0 
PRGMAP: .WORD 0.0 
MMAVA: .WORD 0 



CONTAINS RELOCATION FACTOR (NO MEM MGMT) 
PROGRAM MAP - WHERE THE PROGRAM IS LOCATED 
f'EMORY MANAGEMENT AVAILABLE FLAG. 



K 2 
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13:10 PAGE 59-6 



SEO 0023 



6290 
(1 
(2 
(1 

(1 
(1 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
( 
( 
( 
( 
( 
( 
( 



.SBTTL POWER DOWN AND UP ROUTINES 



000610 
000616 
000624 
000626 
000630 
000632 
000634 
000636 
000640 
000644 
000650 
000656 
000660 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010667 
012737 
000000 
000776 



000756 
000340 



000024 
000026 



000274 
000112 
000662 



000024 



: POWER DOWN ROUTINE 

SPWRDN: MOV 4r$ILLUP,a«PWRVEC 

MOV *340,a*PWRVEC*2 ; 

MOV RO.-(SP) ; 

MOV R1,-(SP) ; 

MOV R2.-(SP) ; 

MOV R3,-(SP) ; 

MOV R4.-(SP) ; 

MOV R5.-(SP) ; 

MOV aSWR,-(SP) ; 

MOV SP.$SAVR6 ; 

MOV #$PWRUP , a#PWR VE C 

HALT 

BR .-2 J 



;SET FOR FAST UP 
PRI0:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 
;SET UP VECTOR 

HANG UP 



UP ROUTINE 



(1) 


000662 


012737 


000756 


000024 


SPWRUP: 


MOV 


#$ILLUP,a#PWRVEC 


;;SET FOR FAST DOWN 
.-GET SP 


(1) 


000670 


016706 


000066 






MOV 


$SAVR6,SP ; 


(1) 


000674 


005067 


000062 






CLR 


$SAVR6 


."WAIT LOOP FOR THE TTY 


(1) 


000700 


005267 


000056 




1$: 


INC 


SSAVR6 


.-WAIT FOR THE INC 


(1) 


000704 


001375 








BNE 


1$ 


:0F WORD 


(3) 


000706 


012677 


000226 






MOV 


(SP) ♦^aswR 


;POP STACK INTO 3SWR 


(3) 


000712 


012605 








MOV 


(SP)*. R5 


;POP STACK INTO R5 


(3) 


000714 


012604 








MOV 


(SP) +,R4 


.POP STACK INTO R4 


(3) 


000716 


012603 








MOV 


(SP)+.R3 


;POP STACK INTO R3 


(3) 


000720 


012602 








MOV 


(SP)t-.R2 


.■POP STACK INTO R2 


(3) 


000722 


012601 








MOV 


(SP)+.R1 


.POP STACK INTO R1 


(3) 


000724 


012600 








MOV 


(SP)+,RO 


.•POP STACK INTO RO 


(1) 


000726 


012737 


000610 


000024 




MOV 


fSPWRDN.arPWRVEC 


;;SET {p THE POWER DOWN VECTOR 


(1) 


000734 


012737 


000540 


000026 




MOV 


#340,»rPURVEC4^2 , 


;PRI0:7 


(2) 


000742 


004567 


022554 






JSR 


R5. SPRINT , 


60 PRINT OUT THE FOLLOWING MESSAGE. 


(1) 


000746 


025651 






SPURMG: 


.WORD 


PWRMSG 


•.POWER FAIL MESSAGE POINTER 


(1) 


000750 


012716 








MOV 


(PC)*. (SO) 


.RESTART AT RESTART 


(1) 


000752 


000300 






SPWRAD: 


.WORD 


RESTART 


■.RESTART ADDRESS 


(1) 


000754 


000002 








RTI 






(1) 


000756 


000000 






SILLUP: 


HALT 




■.THE POWER UP SEQUENCE WAS STARTED 


(1) 


000760 


000776 








BR 


.-2 ; 


•; BEFORE THE POWER DOWN WAS COMPLETE 


(1 ^ 


000762 


000000 






$SAVR6: 


0 




■.PUT THE SP HERE 



CZQMCGO 0-1 2AK MEMORY 
CZQMCG.PII 12-MAR-80 



6485 

[1 



001100 
001100 
001102 
001103 
001104 
001106 
001110 
001112 
0011U 
001115 
001116 
001120 
001122 
001 124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
001160 
001162 
001164 
001166 
001170 
001172 
001174 
001200 
001201 
001202 



001100 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
177607 
077 
015 
000012 



001204 

001204 000000 

001206 000000 

001210 000000 
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SEO 00^' 



.S8TTL COMMON TAGS 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



SCMTAG: 

STSTf#1: 

SERFLG: 

SICNT: 

SLPADR 

SLPERR 

SERTTL 

SITEMB 

SERMAX 

SERRPr 

SGDAD^ 

S8DADR 

SGDDAT 

SBDDAT 



SAUTOB: 
SINTAG: 

SUR: 
DISPLAY 
$TKS: 
$TKB: 
$TPS: 
STPB: 
SNULL: 
SPILLS 
SflLLC 
STPFLG 
STMPO 
STMPI 
$TMP2 
$TMP3 
STIMES: 
SESCAPE 
SBELL 
SOUES 
$CRLF 



$LF: 



.=1100 

.WORD 

• BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 

• WORD 
•BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

: .WORD 
177560 
177562 
177564 
177566 
•BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
0 

:0 

.ASCI2 
.ASCII 
.ASCII 
.ASCI2 



; .-START OF COMMON TAGS 



0 
0 
0 
0 
0 
0 
0 
1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

DSWR 
DDISP 



0 

2 

12 

0 

0 

0 

0 

0 



.-.•CONTAINS 
.-.-CONTAINS 
; .- CONTAINS 
.-.-CONTAINS 
;; CONTAINS 
;; CONTAINS 
.•.•CONTAINS 
;; CONTAINS 
; ; CONTAINS 
.-.-CONTAINS 
.-.-CONTAINS 
; ; CONTAINS 
.-.-CONTAINS 
.-.-RESERVED- 

.-.-AUTOMATIC 
; ; INTERRUPT 



<207><377><377> 

/?/ 

<15> 

<12> 



THE TEST NLMBER 
ERROR FLAG 

SUBTEST ITERATION CCKfiJ 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF 'GOOD* DATA 
ADDRESS OF 'BAD' DATA 
'GOOD' DATA 
'BAD* DATA 
-NOT TO BE USED 



MODE 
MODE 



INDICATOR 
INDICATOR 



.-.-ADDRESS OF SWITCH REGISTER 
.-.•ADDRESS OF DISPLAY REGISTER 
;;TTY K8D STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 

;;TTY PRINTER BUFFER REG. ADDRESS 

.•.•CONTAINS NULL CHARACTER FOR FILLS 

;; CONTAINS 0 OF FILLER CHARACTERS REQUIRED 

.-.-INSERT FILL CHARS. AFTER A 'IINE FEED" 

;;• TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

;;USER DEFINED 

.-.USER DEFINED 

;;USER DEFINED 

;;USER DEFINED 

;;MAX. NlfBER OF ITERATIONS 

: .-ESCAPE ON ERROR ADDRESS 

;;CODE FOR BELL 

.-.•QUESTION MARK 

CARRIAGE RETURN 
;;LIN£ FEED 



'***************************•*•*•*••*•**•*•*****•••*•••••••••••• 

SSTTL APT WAILBOX-E TABLE 

••••••••**••••*•*****••••****•**•*••*•••••••••••••••••••••••••♦•• 



.EVEN 

SMAIL: 

$MSGTY 

SFATAL 

STESTN 



• •APT PtAILBOX 
.WORD AMSGTY J)mESSAGE TYPE CODE 
.WORD AFATAL ;; fatal ERROR NLWBER 
.WORD ATESTN .-.-test NLMBER 
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SEO 0025 



(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 



001212 
0012K 
001216 
001220 
001222 
001224 
001 22A 
001225 
001226 
001250 
001232 



000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



001254 
001255 



000 
000 



001236 000000 



001240 
001241 
001242 
001244 
001245 
001246 
001250 
001251 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001310 
001312 
001314 
001316 
001320 
001322 
001324 
001326 



000 
000 
000000 
000 
000 
000000 
000 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



SPASS; 

SDEVCT: 

SUNIT: 

SMSGAD: 

SMSGLG: 

$E TABLE; 

$ENV: 

SENVM: 

SSUREG: 

SUSUR: 

$CPU0P: 

• * 

• * 

• * 

;* 

• * 

• * 

SMAMSI: 
SMTVri : 

• * 



.WORD 
.WORD 
.yORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



$MAMS2 

$MTYP2 

SMADR2 

SnAMS3 

$«TYP3 

$MADR3 

$MAMS4 

$MTyP4 

$nADR4 

SVECTI 

$VECT2 

SBASE 

SDEVn 

SCDW1 

$CDW2 

SDDWO 

SDDW1 

SDDW2 

$DDW3 

SDDW4 

$DDW5 

$DDW6 

$DDW7 

SDDWB 

$DDW9 

SDDWIO 

$DDW11 

$DDW12 

$DDW13 

SDDW14 

SDDWIS 



-BYTE 
.BYTE 



•BYTE 
•BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



APASS 

ADEVCT 

ALWIT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMS1 
AMTYP1 



SAtADRl: .WORD ATIADRI 



AWAMS2 
AMTYP2 
AnADR2 

mms5 

/V1TYP3 

NW>RZ 

Af>WfS4 

A«TYP4 

AnADR4 

AVECT1 

AVECT2 

ABASE 

ADEVH 

ACDW1 

ACDW2 

ADDWO 

ADDWl 

ADDW2 

ADDW3 

ADDW4 

ADDW5 

ADDW6 

ADDW7 

ADDW8 

ADDW9 

ADDW10 

ADDW11 

ADDWl 2 

ADDWl 3 

ADDWl 4 

ADDW15 



PASS COUNT 
DEVICE COINT 
I/O tWIT NLMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENV]RO»#€NT TABLE 
ENVIROr^ENT BYTE 
ENVIR0^#1ENT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /20=03 , 1 1 /40=04 . 1 1 /45=05 
11/70=06.PDQ=07.0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=fL0ATING POINT PROCESSOR 
BIT 8=^nORY nVMGEMENT 
;;HIGH ADDRESS,H.S. BYTE 
;;MEM. TYPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC C0RE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
HIGH ADDRESS ^BLIorl 

MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE ,BLK#2 
MEM.LAST ADDRESS. BLMf2 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE .8LI0r3 
MEM.LAST ADDRESS. BL<or3 
HIGH ADDRESS. M.S. BYTE 
MEM. TYPE .BLK#4 
MEM.LAST ADDRESS. BLMr4 
INTERRUPT VECT0R#1.BUS PRIORI TY*1 
INTERRUPT VECT0Wr2BUS PRIORI TY*2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
DEVICE MAP 

CONTROLLER DESCRIPTION W0RD#1 
CONTROLLER DESCRIPTION W0RD4r2 
DEVICE DESCRIPTOR WORD#0 
DEVICE DESCRIPTOR W0RD#1 
DEVICE DESCRIPTOR W0RD#2 
DEVICE DESCRIPTOR W0RD#3 
DEVICE DESCRIPTOR UORD^TA 
DEVICE DESCRIPTOR U0RD#5 
DEVICE DESCRIPTOR W0RD#6 
DEVICE DESCRIPTOR W0RD#7 
DEVICE DESCRIPTOR W0RD#8 
DEVICE DESCRIPTOR W0RD*9 
DEVICE DESCRIPTOR W0RD#10 
DEVICE DESCRIPTOR W0RD*11 
DEVICE DESCRIPTOR W0RD#12 
DEVICE DESCRIPTOR W0RD*13 
DEVICE DESCRIPTOR W0RD/H4 
DEVICE DESCRIPTOR W0RD/H5 
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SEQ 0026 



(2) 


001330 






(2) 








(4) 








(4) 








(5) 








(4) 








(5) 








(4) 




001330 




(4) 




000024 




(4) 


000024 


000200 




(4) 




000044 




(4) 


000044 


001330 




(4) 




001330 




(5) 








(4) 








(4) 








(4) 








(4) 


001330 






(4) 


001330 


000000 




(4) 


001332 


001204 




(4) 


001334 


004540 




(4) 


001336 


000170 




(4) 


001340 


000360 




(4) 


001342 


000052 




(4) 








(4) 








(5) 








(4) 


001344 






(5) 


001344 


Mun 


000000 


(5) 


001350 


1 77777 


000000 


(5) 


001354 


1 77777 


000000 


(5) 


001360 


1 77777 


000000 


(5) 


001364 


y77777 


000000 


(5) 


001370 


^77777 


000000 


(5) 


001374 


1 77777 


000000 


(5) 


001400 


1 77777 


000000 


(5) 


001404 


1 77777 


000000 


(5) 


001410 


1 77777 


000000 


(5) 


001414 


1 77777 


000000 


(5) 


001420 


\77777 


000000 


(5) 


001424 


1 77777 


000000 


(5) 


00U30 


1 77777 


000000 


(5) 


001434 


1 777T7 


000000 


(5) 


001440 


y77777 


000000 


(5) 


001444 


^77777 


000000 


(5) 


001450 


1 77777 


000000 


(5) 


001454 


1 77777 


000000 


(5) 


001460 


1 77777 


000000 


(5) 


001464 


1 77777 


000000 


(5) 


001470 


-[77777 


000000 


(5) 


001474 


\77777 


000000 


(5) 


001500 


-[77777 


000000 


(5) 


001504 


U7777 


000000 


(4) 


001510 


-[77777 




(4) 


001512 


001344 




(3) 









SETEND: 
•MEXJT 

.S8TTL APT PARAMETER BLOCK 



***************************************************************** 

•SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

***************************************************************** 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOft APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. = .$X ; .-RESET LOCATION COUNTER 
**************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD 

SHIBTj: .WORD 
SMBADR 
$TSTM: 

SPASTM: .WORD 
SUNITM: .WORD 



.WORD 
.WORD 



0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIL .-;ADDPESS OF APT MAILBOX (BITS 0-15) 
2400. ;;RUN TIM OF LONGEST TEST 

120. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
240. ;. -ADDITIONAL RUN TIME (SECS) OF A PASS t-OR EACH ADDITIONAL UNIT 
.'JORD $ETEND-$MAIL/2 ; .'LENGTH MAILBOX-ETASLt (WORDS) 

S8TTL APT STATISTICS TABLE 



SASTAT: 



.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 


.WORD 


-1.0 




-1 



SASTEND: 
SAPTR: SASTAT 
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SEO 0027 



.•♦THE FOLLOWING TAGS ARE USER DEFINED 



0015U 
001516 

001520 
001522 
001 52A 
001 52A 
001526 
001530 
001530 
001532 
001534 

001534 
001536 
001540 
001540 
001542 
001544 
001544 
001546 
001550 
001550 
001552 
001554 



001556 
001557 
001 56U 

001562 

001564 
001566 

001570 
001574 

001576 
001600 

001602 
001606 
001610 
001612 
001614 
001616 
001620 



000000 
070032 

000000 
000000 

000000 
000000 

000000 
000000 



000000 
000000 

000000 
000000 

000000 
000000 

000000 
000000 
000000 



000 

000 

000 
001562 
000000 

000000 
000000 

000000 000000 
000000 

000000 
000000 

000000 oooooo 
000000 

oooooo 

000004 

oooooo 
oooooo 

177746 



SVERPC: .WORD 0 .VIRTUAL PC LOCATION FOR ERROR TYPfeOUT ROUTINE (SERTYP), 

RESRVD: .WORD 070032 .CORE PARITY REG BITS RESERVED FOR FUTURE USE. 

.-NOTE: FOR HS11 MEMORY WITH PARITY, CHANGE TO 077772. 

LMAD: .WORD 0 .LAST CONTIGUOUS MEMORY ADDRESS (♦2) 

LDDISP: .WORD 0 ; CONTAINS DISPLAY REGISTER IM(SGE 

MEMMAP: ; MEMORY MAP - EACH BIT CORRESPONDS TO 4K 

.WORD 0 .FIRST WORD CONTAINS LOW (0-64K) MAP 

.WORD 0 .SECOND WORD CONTAINS HIGH (64-1 28K) MAP 

TSTMAP: ;TEST MAP - WHICH BANKS ARE SELECTED FOR TEST. 

.WORD 0 ; FIRST WORD CONTAINS LOW (0-64IC) MAP 

.WORD 0 .-SECOND WORD CONTAINS HIGH (64-128K) MAP 

SAVTST: ; SAVED TEST MAP - USED DURING FIRST PASS TO ONLY 

: TEST EACH BANK ONCE. 
.WORD 0 .-FIRST WORD CONTAINS LOW (0-64K) MAP 

.WORD 0 .-SECOND WORD CONTAINS HIGH (64-1 28K} MAP 

PMEMAf: .-PARITY MAP - WICH BANKS HAVE MEMORY PARITY 

.WORD 0 : FIRST WORD CONTAINS LOW (0-64K) MAP 

.WORD 0 .-SECOND WORD CONTAINS HIGH (64-1 28K) MAP 

BITPT: .POINTER TO CURRENT 4K BAMC Of MEMORY 

.WORD 0 .FIRST WORD CONTAINS LOW (0-64K) MAP 

.WORD 0 .SECOND WORD CONTAINS HIGH (64-128K) MAP 

TMPPT: .TEMPORARY POINTER FOR 2ND 4K BAMC Of MEMORY 

.WORD 0 .-FIRST WORD CONTAINS LOW (0-64K) MAP 

.WORD 0 .SECOND WORD CONTAINS HIGH (64-128K) MAP 

MMORE: .WORD 0 .LOOP ADDRESS FOR MULTIPLE BLOCK TESTING- 

;SET BY "INITm* AND "INITDN" ROUTINEES. 
.USED BY 'mjP" AND -WDOUtt' ROUTINES. 

SELFL6: .BYTE 0 .OPERATOR SELECTED PAR/«ETERS FLAG. (SA=204) 

FLAG8K: .BYTE 0 ;8K BLOCK INDICATOR. USED IN "INITMM" AND 'mjP". 

OEFLG: .BYTE 0 :ODD/EVEN FLAG USED IN PARITY MEMORY BYTE TEST. 

.EVEN 

FSTADR: .WORD 0 .FIRST VIRTUAL ADDRESS TO BE TESTED. 

.FIRST ADDRESS IS USER SELECT>«LE. 
TMPFAD: .WORD 0 .-ADJUSTED FIRST ADDRESS. 

FADMSK: .WORD 0 .-BIT MASK TO ALLOW DOMMRD ADDRESSING TESTS 

; TO BREAK TO 'WKfM' TO FIND FIRST ADDRESS. 

FADMAP: .WORD 0.0 ;MAP OF BAWC IN WHICH FIRST ADDRESS IS LOCATED. 

LSTADR: .WORD 0 .LAST VIRTUAL ADDRESS (♦2) TO BE TESTED. 

.LAST ADDRESS IS USER SELECT>«LE. 

TMPLAD: .WORD 0 ; ADJUSTED LAST ADDRESS. 

LADMSK: .WORD 0 :BIT mSK TO ALLOW UPWARD ADDRESSING TESTS 

; TO BREAK TO 'mjP" TO FIND LAST ADDRESS. 
LADMAP: .WORD 0,0 ;MAP Of BAWC IN WHICH LAST ADDRESS IS LOCATED. 
BLKMSK: .WORD 0 .-BLOCK MASK, DETERMINES THE BLOCK SIZE. 

.CONST: .WORD 0 ;USER SELECTABLE CONSTANT DATA. 

WWP: .WORD 4 .-WRITE WRONG PARITY COMMAND 

TEMP: .WORD 0 ; TEMPORARY STORAGE 

CASFLG: .WORD 0 .'CACHE PRESENT FLAG 

CASREG: .WORD 177746 .CACHE CONTROL REGISTER 

RELATIVE ADDRESSING TABLE. 

THE FOLLOWING LOCATIONS ARE MODIFIED AT RELOCATION TIME TO ALLOW 
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(3) 

(A) 
(3) 


001622 








(3) 


001622 


001100 






(3) 


001624 


001516 






(3) 


001626 


002076 






(3) 


001630 


002276 






(3) 


001632 


012062 






( b) 










(3) 


001636 


017440 






(3) 


001640 


002340 






(3) 


001642 


000010 






(3) 
(A) 


001644 


014014 






(3) 
(A) 
(3) 


001646 


001116 


001120 


001124 


(3) 


001654 


001126 


000000 




(3) 


001660 


001514 


001116 


001120 


(3) 


001666 


001124 


001126 


000000 


(3) 


001674 


001514 


001116 


001120 


(3) 


001702 


001124 


000000 




(3; 


001706 


001514 


001116 


001160 


(3) 


001714 


001120 


000000 




(3) 


001720 


001514 


001116 


001120 


(3) 


001726 


001160 


001124 


001126 


(3) 


001734 


000000 






(3> 


001736 


001514 


001116 


001160 


(3) 


001744 


001120 


001124 


001126 


(3) 


001752 


000000 






(3) 


001754 


001514 


001116 


001120 


(3) 


001762 


001122 


001124 


001126 


(3) 


001770 


000000 






(3) 


001772 


001514 


001116 


001122 


(3) 


002000 


UOOOOO 






(3) 


002002 


001514 


001116 


001122 


(3) 


002010 


001160 


001162 


000000 


(3) 


002016 


001514 


001116 


001160 


(3^ 


002024 


001162 


000000 




(3) 


002030 


001160 


001162 


001120 


(3) 


002036 


001126 


000000 




(3) 


002042 


001166 


000000 




(3) 
(3) 
(3) 
(4) 


002046 


}77777 






(3) 
(4) 
(3) 
(3) 


002050 


125325 






(3) 


002052 


1 52652 






(3) 


002054 


052452 






(3) 


002056 


025125 






(3) 


002060 


102070 






(3) 


002062 


072527 






(3) 


002064 


\77777 
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RELATIVE ADDRESSING TO GET THE RELOCATED VALUE OF THE ARGUEMtMT TAGS. 



RADTAB: 

.STACK: STACK 

.RESRV: RESRVD 

.MPRO: MPRO 

.MPRX: MPRX 

.P8TRP: P8TRP 

.MPPAT: MPPATS 

.PESRV: PESRV 

.ERRTB: SERRTB 

.EIGHT: 8. 

.TST32: TST32 



STACK POINTER INITIAL ADDRESS. 

PARITY REGISTER RESERVED BIT MASK ADDRESS. 

MEMORY PARITY REGISTER TABLE ADDRESS. 

MEMORY PARITY REGISTER EXIST T/«LE ADDRESS. 

PARITY BYTE TEST TRAP ROUTINE ADDRESS. 

MEMORY PARITY PATTERN TABLE ADDRESS. 

MEMORY PARITY ERROR TRAP ROUTINE ADDRESS. 

ERROR TYPEOUT TABLE PONTER. 

DECIMAL TYPE ROUTINE COUNT DESIGNATOR. 

SCOPE ABORT ADR FOR WHEN NO MEM AVA FOR TEST. 



DATA CONTAINERS FOR ERROR PRINTOUT. 

• • ****************** A******************************************** 

DTI: 



0T2: 
0T12 
DT14 
DT15 



SERRPC . SGDADR , f GDDAT . SBDDAT , 0 
S VERPC , SERRPC . SGDADR . SGDDAT . SBDDA T . 0 
SVERPC . SERRPC . SGDADR . SGDDAT . 0 
SVERPC . SERRPC . STMPO . SGDADR . 0 
SVERPC , SERRPC , SGDADR , S TMPC . SGDDA T . SBDDA T , 0 



PT21 : SVERPC. SERRPC.STMPO. SGDADR. SGDDAT. SBDDAT, 0 

DT23 : SVERPC . SERRPC , SGDADR . S6DADR . SGDDAT . SBDDAT . 0 

DT24: SVERPC. SERRPC.SBDADR.O 

DT25: SVERPC, SERRPC. S8DADR,STMP0,$TMP1 ,0 

DT26: SVERPC. SERRPC. STMPCSfMPl.C 

DT30: STMP0.STMP1 .SGDADR. SBDDAT. 0 

DT31: ST»*»3,0 

.WORD -1 .-TABLE TERMINATOR. 

SBTTL MEMORY PARITY PATTERNS TABLE 

THE FOLLOWING ARE THE PARITY PATTERNS EXERCISED THRUOUT MEMORY 



MPPATS: 125325 
152652 
052452 
025125 
102070 
072527 
m777 



.EVEN. ODD 
.ODD, EVEN 
.EVEN. ODD 
.ODD, EVEN 
.-EVEN. EVEN 
.ODD. ODD 
; EVEN. EVEN 



0 3 

CZOiCGO 0-12^K MEMORY EXERCISER. 16K VER MACYll 30A(1052) 12-mft-80 

CZQMCG.PII 12-MAR-80 13:07 MEMORY PARITY PATTERNS TABLE 



13:10 PAGE 59-1 :> 



SEO 00?9 



(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(4 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(4 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(5 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 



002066 
002070 
002072 



107030 
152525 
000000 



002074 000000 



002076 
002100 
0021 0£ 
0021 OA 
002106 
002110 
002112 
0021 U 
002116 
002120 
002122 
0021 2A 
002126 
002130 
002132 
002134 
002136 
002K0 
002U2 
002UA 
002U6 
002150 
002152 
002154 
002156 
002160 
002162 
002164 
002166 
002170 
002172 
002174 
002176 
002200 
002202 
002204 
002206 



172101 
000000 
000000 
000000 
172103 
000000 
000000 
000000 
172105 
000000 
000000 
000000 
172107 
000000 
000000 
000000 
172111 
000000 
000000 
000000 
172113 
000000 
000000 
000000 
172115 
000000 
000000 
000000 
172117 
000000 
000000 
000000 
172121 
000000 
000000 
000000 
172123 



107030 
152525 
0 



MPEND: 0 



ODD, ODD 
ODD, EVEN 

EXTRA PATTERN HOLDER FOR 
FUTURE USE 
TABLE TERMINATOR 



S8TTL MEMORY PARITY REGISTER ADDRESS TABLE 

//////////////////////////////////////////////////////////////////''/// 

* THE FOLLOWING REPRESENTS THE MEMORY PARITY REGISTER ADDRESS TABLE 

* FROM WHICH PARITY MEMORY IS ADDRESSED & CONTROLLED: 

* THE LEAST SIGNIFICANT BIT IN THE DEVICE ADDRESS IS SET TO A ONE (1) 

* IF THE CONTROL IS FOUND NOT TO BE PRESENT. THE MEMORY PRESENT UNDER 

* THE CONTROL OF EACH CONTROLLER IS REPRESENTED BY TWO (2) WORDS FOLLOWING 

* THE DEVICE ADDRESS- EACH BIT REPRESENTING A 4K BLOCK. I.E. 

* FIRST WORD BITO = 0 - 4K, BIT1 = 4 - 8K BIT15 = 60 - 64< 

* SECOND WORD BITO = 64 - 68K BIT14 = 120 - 124K. 

////////////////////////////////////////////////////////////////////// 



MPRO: 



MPR1 



MPR2: 



MPR3: 



MPR4; 



MPR5: 



MPR6: 



MPR7: 



W»R8: 



MPR9: 



>1 



>1 



♦ 1 



172100 
0 
0 
0 

172102 
0 
0 
0 

172104 
0 
0 
0 

172106 +1 
0 
0 
0 

172110 
0 
0 
0 

172112 
0 
0 
0 

172114 
0 
0 
0 

172116 
0 
0 
0 

172120 
0 
0 
0 

172122 



♦ 1 



>1 



♦ 1 



♦1 



♦ 1 



PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR M0S.C0RE,MS11-K 
PARITY STATUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
MASK FOR MOS. CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
MASK FOR M0S,C0RE.MS11-K 
PARITY STATUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
NASK FOR MOS CORE, MSI 1-K 
PARITY STAUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
NASK FOR M0S.C0RE,MS11-K 
PARITY STATUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
NASK FOR MOS. CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL 1W> (LOW 64K) 
CONTROL m> (HIGH 64K) 
NASK FOR MOS. CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL N/SP (LOW 64K) 
CONTROL N/SP (HIGH 64K) 
MASK FOR MOS. CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL NAP (LOW 64K) 
CONTROL NAP (HIGH 64K) 
NASK FOR M0S.C0RE.MS11-K 
PARITY STATUS REGISTER 



E 3 

CZQMCOO 0-1 MEMORY EXERCISER. 16K VER MACvH 30A(1052) 12-^-80 13.10 PAGE 59-M 

CZQMCG.P11 12-mR-80 13:07 MEIiORY PARITY REGISTER ADDRESS TABLE 



SEO 0050 



(3) 
(3) 
(3^ 
(3) 
(3) 
(3J 
f3) 
(3) 
(I) 
(3) 
(3) 
(3) 
(3) 
(I) 
(3) 
(3^ 
(3) 
(3) 
(3^ 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3^ 
(3) 
(3) 
f3) 



002210 
002212 
0022H 
002216 
002220 
002222 
002224 
002226 
002230 
002232 
002234 
002256 
002240 
002242 
002244 
002246 
002250 
002252 
002254 
002256 
002260 
002262 
002264 
002266 
002270 
002272 
002274 



000000 
000000 
000000 
172125 
000000 
000000 
000000 
172127 
000000 
000000 
000000 
172131 
000000 
000000 
000000 
172133 
000000 
000000 
000000 
172135 
000000 
000000 
000000 
172137 
000000 
000000 
000000 



002276 000021 



0 
0 
0 

MPR10: 172124 +1 
0 
0 
0 

WR11: 172126 ♦! 
0 
0 
C 

MPR12: 172130 ♦! 
0 
0 
0 

MPR13: 172132 
0 
0 
0 

MPR14: 172134 +1 
0 
0 
0 

MPR15: 172136 ♦I 
0 
0 
0 

;THJS IS THE END OF 
MPRX: .8LKW 17. 



THE 



TABLE 
; TABLE 
; (THE 



CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64k;) 
MASK FOR M0S,C0RE.MSn-»C 
PARITY STATUS REGISTER 
CONTROL mP (LOW 64K} 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS, CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR M0S,C0RE,MS11-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
HASK FOR MOS. CORE, MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR MOS. CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K} 
CONTROL MAP (HIGH 64K) 
«ASK FOR nOS. CORE .MSI 1-K 
PARITY STATUS REGISTER 
CONTROL MAP (LOW 64K) 
CONTROL MAP (HIGH 64K) 
MASK FOR M0S.C0RE.MS11-K 



TO HOLD JUST PARITY 
EXTRA WORD IS FOR A 



STATUS REGISTERS 
TERMINATOR.) 



THAT EXIST, 



CZOnCGO 0-1 MEMORY EXERCISER. 
CZQMCG.Pll 12-MAR-80 15:07 

(1 

(1 
(1 
(1 
(1 

(1 
(1 

(1 
(1 
(1 
(1 
(1 
(1 

n 

f 1 ) 002340 

6486 002340 
6487 

6488 002340 027020 

6489 002342 030377 

6490 002344 001646 

6491 002346 030744 
6492 

6493 002350 027054 

6494 002352 030416 
6495 

6<.96 002354 001660 

6497 002356 030750 
6498 

6499 002360 027054 

6500 002362 030416 

6501 002364 001660 

6502 002366 030755 
6503 

6504 002370 027110 

6505 002372 030416 

6506 002374 001660 

6507 002376 030750 
6508 

6509 002400 027146 

6510 002402 030416 

6511 002404 001660 

6512 002406 030750 
6513 

6514 002410 027204 

6515 002412 050416 

6516 002414 001660 

6517 002416 050750 
6518 

6519 002420 027250 

6520 002422 050416 

6521 002424 001660 

6522 002426 050750 
6525 

6524 002450 027511 

6525 002452 050416 

6526 002454 001660 



16ic VER MACYll 50A(1052> 

ERROR POINTER TABLE 



F 5 

12-mR-80 



15:10 PACE 59-U 



EQ 0031 



,S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORI»WTION FOR EACH ERROR THA* CAN OCCJR. 

• THE INFORMATION IS OBTAINED BV USING THE INDEX Nl/BER 'OUNO IN 

•LOCATION $ITE>«B. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (lERRPO. 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 



• EM 

• DH 

• DT 

• DF 



SERRT8: 

CHGG1 : 

;• ITEM 1 
DM1 
DHI 
DTI 
DF1 

;• ITEM 2 
DM2 

DH2 

DT2 
DF2 

;• ITEM 5 
DM2 
DH2 
DT2 
DF5 

;• ITEM 4 
DM4 
0H2 
DT2 
DF2 
ITEM 5 
0M5 
DH2 
DT2 
DF2 

;• ITEM 6 
DM6 
DH2 
DT2 
DF2 

;• ITEM 7 
DM7 
DH2 
DT2 
DF2 

;• ITEM 10 
DM10 

DH2 
DT2 



;;P0INTS TO THE ERROR MESSAGE 
;;POi;^TS TO THE DATA HEADER 
; .-POINTS TO THE DATA 
; .-POINTS TO THE DATA FORMAT 



PARITY REGISTER DATA ERROR. 

PC.REG.S/B.UAS 

SFRRPC . SGDADR . SGDDAT . SSDDAT 

16.18,16.16 

;ADDRESS TEST ERR0R(TST1-5) . 
;V/PC.P/PC .MA.S/8.WAS 

; SVERPC . SERRPC . SGDADR . SGDDA T , SeODA T 
;16. 18, 18,16. 16 

ADDRESS TEST ERR0R(TST1-5) . 

V/PC.P/PC.m,S/8.UAS 

$ VE RPC , $E RRPC . SGDADR . SGDDA T . S8DD A T 

16,18.18.8.8 



CONSTANT DATA ERROR( TST6-10) . 

V/PC,P/PC,MA.S/8.WAS 

SVERPC , SERRPC , SGDADR . SGDDAT . S8DDA T 

16,18.18,16.16 

ROTATING BIT ERR0R(TST11-12) . 

V/PC.P/PC ,MA.S/8.WAS 

SVERPC , SERRPC . SGDADR , SGDDA T , S8DDA T 

16,18.18,16.16 

MOS REFRESH TEST ERROR (TST50-51). 

V/PC.P/PC. MA. S/8. WAS 

SVERPC , SERRPC . SGDADR , SGDDAT . SBDD A T 

16.18,18.16,16 

3 XOR 9 PATTERN ERRORdSTl 5-''6) . 

V/PC,P/PC,MA,S/8.UIAS 

SVERPC . SERRPC , SGDADR , SGDDAT . S8DDA T 

16.18,18,16,16 

MARCHING rS AND O'S ERR0R(TST27) . 

^/PC,P/PC,MA.S/8.UAS 

SVE RPC. SE RRPC . SGDADR . SGDDA T , SBDD A T 



CZQMCGO 0-12AK MEMORY EXERCISER. 16K VER MACYll 50A(1052) 

CZQHCG.P11 12-mR-80 13:07 ERROR POINTER TA8LE 



6527 


002A36 


030750 






6528 






• • 

9 


ITEM 11 


6529 


002440 


027355 




DMl 1 


6530 


002442 


030416 






6531 


002444 


Z Z A 

001660 






6532 


002446 


A7 A^P f 

030755 




DF 5 


6553 






* • 


J Tbn 1^ 


655»» 


/\/\Ty CA 

002450 






oni 


6535 


002452 


ATAy y T 

030445 




DHl^ 


z C Tz 

6536 


002454 


AA^ Z^ 7/ 

001674 




DT1<^ 


6537 


rt/N*^ y fz 

002456 


A7 A'7C C 

030755 




DP 5 


Z. C 70 

6538 








f TCM 1 T 

ITEM 15 


Z. C 




A'57/ 7C 




r\M^ X 

\)n \ J 


Z. C/ A 

6540 


AAO/ 

002462 


ATAy / 1 

05U4«.5 




DHl ^ 


65*1 1 


002464 


AA1 ^7/ 

0016r*» 




IM 1 5 

D I I c 


65*i2 


002466 


ATA7CC 

050^^55 






65*»3 






• • 


f TCM 1 L 


65*»*» 


7A 

0024/^0 


0c^565 




DPI 1 «i 


l^C/ c 

65*»5 


AAT/ 7"^ 

0024 r*: 


ATA/ Z./ 

050464 




IMJl Z 


63*»6 


AA1/ 7/ 

0024 /^*» 


AAi 7AiL 
00 1 ^U6 






6p*»/' 












AA'5/ 7^ 


A1A7il.O 

050/^6^ 






/ cy Q 








I TCM 1 C 


6p50 


AA'5CAA 


A'5 7A'5A 




on 1 


6551 


AA'5CAO 


A1ACAC 

05U5U5 




Un 1 5 


655^ 


AA9C(V 


AAI 7'Dn 

Wl f c\j 




1/ 1 1 5 


6555 


AAOCrUL 

UU^5U6 


ATA7AO 

U50/'0£ 




r\C^L 


055»« 








TTPM 1A 

i 1 cn 1 o 


X.CCC 

6555 


AAOCI A 






l^M1 A 

on 10 


6556 


AA'5C1 O 

00<:5 1^ 


A1A/ i^/ 




On 1 *• 


655f 


AAOCI/ 

UU£5 i*» 






r»Tiz 
0 1 1 <• 


o55o 


AA9C1 A 


AlA7iLO 




Or 1 *» 


655V 






* 


r rcM 1 7 


65oU 


AAOC5A 

UU25cU 


A 077/ 1 

Uc^ ^45 




on 1 1 


65ol 










65o^ 




A1A/ 1 




One 


65o5 


W«:5£4 


AAI 4^A 




0 1 c 


65o*f 


0025c6 


AZA7CC 




Or 3 


6565 








f TCM OA 

] itn 


65oo 


AA9C10 






oncu 


o50/^ 


UU£53£ 


AW 1 A 




One 


05OO 


UUc5j«» 


AAI iLAn 




0 1 c 


05oV 


AAOCTiL 

UU£55o 


ATA7CA 

U5Uf 5vJ 




Or <: 


05f U 








I TCM 51 


05/^l 


UUc5*tU 






one 1 




UU<:5*»<: 


AlACZA 




Oncl 


iL.C7T 

o5f 3 


UUc5«»«» 


UUl f jO 




r>T 51 
0 1 c 1 


05r»» 


A03CZA 






T\C 51 

0^ c 1 


05r 5 








ITEM 55 

1 1 tn CC 


r O 




(VYVWI 
www 




A 


6577 


002552 


000000 




0 


6578 


002554 


000000 




0 


6579 


002556 


000000 




0 


6580 






• • 


ITEM 23 


6581 


002560 


030142 




DM23 


6582 


002562 


030571 




DH23 



G 3 
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SEO 0032 

16J8J8J6J6 

PARITY MEMORY ADDRESS ERR0R( TST1 7) . 

V/PC,P/PC.MA.S/8.WAS 

$ VE RPC , $E RRPC , $GDADR , $GDDA T , SSDDA T 

16.18.18.8.8 

DATIP WITH WRONG PARITY DIDN'T TRAP(TST17), 

V/PC.P/PC.MA.S/8 

SVERPC . SERRPC . SGDADR . SGDDAT 

16.18,18.8 

WRONG PARITY TRAPED. BUT NO REGISTER SHOWS ERROR FLAG. 

V/PC.P/PC.MA.S/8 

$ VE RPC . $E RRPC . SGDADR . SGDDA T 

16.18.18.8 

PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST17) . 

V/PC.P/PC.REG.MA 

tVERPC . SERRPC . STMPO . SGDADR 

16.18.18.18 

PARITY REGISTER DATA ERROR. 
V/PC ,P/PC ,MAUT .REG . S/8 . WAS 
SVERPC.SERRPC . SGDADR .STMPO . SGDDAT , SSDDAT 
16.18.18.18.16.16 

MORE THAN ONE REGISTER INDICATED PARITY ERROR. 

V/PC.P/PC.RFC.MA 

SVERPC.SEPP!^^ STMPO. SGDADR 

16.18.18,' 

DATA SHOULDN'T HAVE CHANGED WHEN PARITY FRRQR 

TRAPPeD(TST21). 
V/PC.P/PC.MA.S/8. WAS 
; SVERPC .SERRPC .SGDADR, SGDDA t , SSDDAT 
16.18.18.8,8 

RANDOM DATA f RROR(TST20) . 
:V/PC.P/PC,«A.S/8.WAS 
; SVERPC . SERRPC . SGDADR . SGDDAT . SSDDA T 
;16.18.18.16,16 

INSTRUCTION EXICUTION ERROR(TST2i-26) . 

; V/PC .P/PC . lUT .«A , S/8 . WAS 

; SVERPC . SERRPC .STMPO . SGDADR . SGDDA T . SBDDA T 

;16. 18. 16. 18. 16. 16 

;NOT USED 

;CHGG1 



.•PROGRAM CODE CHANGED WHEN RELOCATED. 
;V/PC.P/PC,SRC MA.DST MA.S/8,WAS 



CZQHCGO 0-1?4k memory EXERCISER. 16n VER ^A^y^^ 304(1052) 

CZQ«CG.Pn 12-MAR-80 M:07 ERROR POINTER TABLE 
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6583 

6S8^ 

6585 

6586 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

659<. 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

66(K 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

66K 

6615 

6616 



6621 
6622 
6623 
6624 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(?) 



002564 001 754 
002566 030762 



002570 
002572 
002574 
002576 

002600 
002602 
002604 
002606 

002610 
002612 
002614 
002616 

002620 
002622 
002624 
002626 

002630 
002632 
002634 
002636 

002640 
002642 
002644 
002646 



030207 
030631 
001772 
030762 

030263 
030652 
002002 
030762 

050303 
030703 
002016 
030750 

030323 
030703 
002016 
030750 

000000 
030725 
002030 
030776 

030357 
000000 
002042 
030776 



DT23 
0F14 

ITEM 24 
DM24 
DH24 
DT24 
DF14 

ITEM 25 
DM25 
DH25 
DT25 
DF14 

ITEM 26 
DM26 
DH26 
DT26 
DF2 

ITfM 27 
DM27 
DH26 
DT26 
DF2 

;• ITEM 30 
0 

DH30 
DT30 
DF30 
ITEM 31 
0M31 
0 

DT31 
DF30 

.S8TTL START: 



; $ VE RPC . $E RRPC . SGDADR . $eOADR . IGDDA T . SeODA ' 
;16. 18. 18. 18. 16. 16 

.TRAPPED. BUT NO REGISTER HAD ERROR BIT SET, 

;V/PC.P/PC.TRP/PC 

;$VE RPC. SE RRPC. S80ADR 

;16.18.18 

; TRAPPED TO 114. 

; V/PC .P/PC . TRP/PC .REG. WAS 

; $ VE RPC. SERRPC . ISDADR , $ TMPO . $ T MP 1 

.-16.18.18.18.16 

; FAILED TO TRAP. 
; V/PC. P/PC .REG. WAS 
.SVERPC. SERRPC. $TMP0.$TMP1 
;16,18,18.16 

.(ACTION ENABLE WASN'T SET). 

; V/PC. P/PC. REG.UAS 

; SVERPC .SERRPC .STMPO.SSDDAT 

;16.18.18.16 

;N0 MESSAGE. 
.REG. WAS. WAS 
.STMPO.STMPI . SGDADR. $8DDAT 
;18.16.18.8 

.•TRAPPED TO 4 
;N0 HEADER 
;STMP3 
.18 



SETUP AND MAP MEMORY 



/•\:/*\;/*\:/*\:/*\:/»\:/*\:/*\:/*\:/*\:/*\:/»\:/*\:/*\:/»\:/*\:/»\:/o\: 
• THIS IS THE NORMAL (SA = 200) BEGINNING OF THE PROGRAM. 

NOTE: THIS CODE IS NOT POSITION INDEPENDENT. 
/:\*/:\*/:\*/:\*/:\*/:\*/:\*/;\*/:\*/:\*/:\*/:\*/:\»/:\»/:\*/:\«/:\»/:\. 



002650 
002654 
002656 
002664 



002664 
002670 
002672 
002676 
002700 

002704 
002712 
002720 



105067 


1 76702 




000403 






112767 


m777 


176672 


012706 


001100 




005026 






022706 


001140 




001374 






012706 


001100 




012737 


000610 


000024 


012737 


000340 


000026 


016767 


011242 


011232 



START: 



CLR8 
BR 
M0V8 



SELECT: 
STARTA: 
.S8TTL 
.-.CLEAR 

MOV 

CLR 
CMP 
6NE 
MOV 

;; INITIALIZE 
MOV 
MOV 
MOV 

;;SIZE FOR A 



SELFL6 
STARTA 
#-1. 



SELFLG 



CLEAR SELECT PARAMETER FLAG. 
GO DO SETUP AND MEMORY MAP. 
SET THE SELECT PARAMETERS FLAG. 



INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 

#$CMTAG.R6 .-.FIRST LOCATION TO BE CLEARED 

{R6)* .-.-CLEAR MEMORY LOCATION 

#SWR.R6 ;:DONE? 

.-6 .-.-LOOP BACK IF NO 

#STACK.SP ; .-SETUP THE STACK POINTER 

A FEW VECTORS 

-rSPWRDN.ftTPWRVEC ..POWER FAILURE VECTOR 
#340.arPWRVEC*2 .-.LEVEL 7 

SENDCT.SEOPCT .-.-SETLiP END-QF -PROGRAM COUNTER 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



CZQWCGO MEMORY 
CZQMCG.P11 T2-*1Aft-80 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(1) 
(2) 
(2) 
(2) 
(2) 
(2) 
6625 
6626 
6627 



EXERCISER. 

13:07 



16K 



VER MACYll 
INITIALIZE THE 



30A(1052) lJ 
COMMON TAGS 



3 

-MAR-80 
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CO 005^ 



.-.EQUAL TO A "-1 



002726 


01 3746 


000004 






MOV 


002732 


012737 


002766 


000004 




MOV 


0027A0 


012767 


177570 


176172 




MOV 


0027A6 


012767 


177570 


176166 




MOV 


002754 


022777 


1 77777 


176156 




CMP 


\J\JcfOc 












00276A 


000403 








BR 


002766 


012^16 


002774 




64S: 


MOV 


002772 


000002 








RTI 


002774 


012767 


000176 


176136 


65S: 


MOV 


003002 


012767 


000174 


1 761 32 




MOV 


003010 


012637 


000004 




66S: 


MOV 


OO'OK 


005067 


176172 






CLR 


003020 


132767 


000200 


1 761 77 




BIT8 


003026 


001403 








BEQ 


003030 


012767 


001226 


176102 




MOV 


003036 








67S: 




003036 


005067 


1 76460 






CLR 


003042 


005077 


176074 






CLR 



SETUP FOR A 

airERftvEC.-(SP) 

#64S.a«€RRVEC 

«DsyR.syR 

#ODISP.DI SPLAY 

»-^ .aswR 

66$ 
65S 

#65S,(SP) 



SOFTUARE SWITCH REGISTER. 
.-.SAVE ERROR VECTOR 
.-.SET UP ERROR VECTOR 
.-.■SETUP FOR A HARDWARE SUJCH REGISTER 
;;ANO A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 
; .-BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT -1 
.-.aRANCH IF NO TIMEOUT 
.-.SET UP FOR TRAP RETURN 

.-.POINT TO SOFTWARE SWR 



tSWREG.SUR 
#DISPREG.DI SPLAY 
(SP)*.a#€RRVEC .-.RESTORE ERROR VECTOR 



SPASS 

#APTSIZE.$ENVM 
67$ 

nSWREG.SUR 



,S8TTL 



LDDISP 
aD I SPLAY 
TYPE PROGRAM NAME 



;; CLEAR PASS COU^T 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
.-.-NO.USE APT SWITCH REGISTER 

.•CLEAR DISPLAY REGISTER STORAGE LOCN 
.•CLEAR DISPLAY REGISTER 



) 

t) 
I) 
I) 
I) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(4) 
(4) 
(4) 
(4) 
(2) 
(2) 
(2) 
(1) 
(1) 
(1) 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 



003046 
003052 
003054 
003062 
003064 
003070 

003072 
003076 
003100 
003106 
003110 
003116 



003120 
003124 
003130 
003132 
003140 
003140 

003154 
003154 
003156 
003162 
003164 
003170 
003176 
003202 
003206 
003212 



005227 
001040 
022737 
001434 
004567 
003142 

005737 
001015 
126727 
001411 
026727 
001010 



013746 
004767 
000403 
112767 

000405 



010700 
022700 
001402 
000167 
012767 
005067 
005067 
105737 
001011 



\77777 
014232 
020432 

000042 
176120 
176024 



\7777t 
017316 



.-.-TYPE THE NA«E OF THE PROGRAM IF FIRST PASS 



000042 



INC #-1 

BNE 68$ 

CMP 4r$ENDAO.a«42 

BEQ 68$ 

JSR R5. $PRINT 

.WORD 69$ 



;; FIRST TIME? 
.-.-BRANCH IF NO 
;;ACT-11? 
• -BRANCH IF YES 

•GO PRINT OUT THE FOLLOWING MESSAGE. 
.ADDRESS OF MESSAGE TO BE TYPED 



000001 
000176 



.S8TTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

TST a«42 :;ARE WE RUNNING UNDER XXDP/ACT? 

BNE 70$ ; .-BRANCH IF YES 

C«PB $ENV.#1 ;;ARE WE RUWaiNG UNDER APT? 

BEQ 70$ ; .-BRANCH IF YES 

CMP SWR.#SWREG .-.SOFTWARE SWITCH REG SELECTED-* 

BNE 71$ .-.BRANCH IF NO 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $GTSWR ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SyS«AC»*. 



000001 175774 



003156 

175110 
000003 
175402 
175372 
001224 



70$: 
71$: 

;;69$; 
6l$: 



175404 10$: 



MOV 

JSR 
BR 

nova 

BR 

.ASCIZ 

MOV 

CMP 

BEQ 

JMP 

MOV 

CLR 

CLR 

TST8 

BNE 



a#psw. 

PC. 
71$ 

#1,$AUT0B 



(SP) .-PUT THE PROCESSOR STATUS ON THE STACK 
$6TSWR ;G0 TO THE SUBROUTINE 

;;SET AUTO-rtODE INDICATOR 



68$ .-.-GET OVER THE ASCIZ 

<CRLF>'CZQMCGO'<CRLF> 



PC. RO 
RO 

10$ 

RE STAR 

#3. PRGMAP 

PRGMAP+2 

RELOCF 

a4r$ENV 

13$ 



.-GET CURRENT PROGRAM CO(><TER. 
.-CHECK IF THE PROGRAM IS RELOCATED. 
.-BR IF PROGRAM NOT RELOCATED. 
;G0 TRY TO RELOCTED BEFORE CONTINUING. 

.-INITIALIZE PROGRAM MAP LO 64K. 

;...HI 64K. 

;INIT THE RELOCATION FACTOR. 
.-CHECK FOR APT11 
;8R IF APTll 



CZQMCGO 0-1 24K MEMORY 
CZQMCG.Pll 12-«AR-80 



J 3 
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iEO 0055 



6637 
6638 
6639 
6640 
66A1 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
6652 
(2) 
(1) 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
(2) 
(1) 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 



003214 
003220 
003222 
003230 



005737 
001406 
023737 
001402 



003236 
003242 
003250 
003252 
003260 
003264 
003270 
003274 
003300 



003302 
003306 
003312 
003320 
003326 



003334 
003340 
003344 
003350 
003352 
003354 
003356 
003362 
003564 
003370 
003374 

003376 
003404 
003406 
003412 
003414 
003416 
003420 
003424 



005067 
032777 
001014 
012737 
005037 
004767 
005267 
004567 
025364 



012706 
005067 
012737 
052767 
012767 



012706 
012700 
012701 
005010 
005011 
005002 
012703 
005004 
005067 
004567 
025431 



000042 
000042 



003232 004767 014122 



175344 
010000 

003302 
1 77^72 
011020 
175312 
020222 



001100 
176304 
003334 
000014 
000001 



001100 
001524 
001526 



000001 

175576 
020126 



000046 



TST 
BEO 
CMP 
BEO 

JSR 



a«42 

13$ 

a«42,a4r46 
13S 

PC.SAVLDR 



CHECK FOR STANDALONE 
BR IF STANDALONE 
CHECK FOR ACT11 
BR IF ACT11 
MUST BE KXDP 
GO SAVE LOADERS 



175670 
000004 



000004 
174420 
176262 



;* CHECK IF MEMORY MANAGEMENT IS AVAILABLE, AND SET IT UP IF If IS. 

13S: CLR MMAVA : CLEAR MEM MGMT AVAILABLE FLAG 

BIT #SU12, 9SUR .-CHECK FOR INHIBIT KTll SWITCH 
BNE IMPCK .-BRANCH IF SET 

MOV #IMPCK,a#ERRVEC ;SET UP TIMEOUT TRAP VECTOR 
CLR a*SRO .-CLEAR MEM MGMT STATUS REG 

JSR PC. MMINIT ;MEM MGMT INITIALIZATION ROUTINE. 
INC MMAVA ;SET MEM MGMT AVAILABLE FLAG 

JSR R5. SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE, 
.WORD MMAMES .ADDRESS OF MESSAGE TO BE TYPED 

;'XT11 AVAILABLE" 

CHECK IF CACHE PRESENT. IF SO TURN IT OFF!!! 
IMPCK: MOV #STACK, SP 

CLR CASFLG .-CLEAR CACHE PRESENT FLAG 

MOV *«APMEM.a#ERRVEC 
BIS #14. IMPCHE 

MOV #1. CASFLG ;SET CACHE PRESENT FLAG 



* ROUTINE TO MAP ALL OF MEMORY. 

' ONLY FULL 4K BANKS WILL BE RECOGNIZED. 

► RO = MEMMAP POINTER... LO 64K. 

► Rl = MEMMAP POINTER... HI 64K. 
R2 = ADDRESS POINTER 

* R3 = BAM( POINTER... LO 64K. 

► R4 = BAM( POINTER... HI 64K. 
R5 = SCRATCH REGISTER. 

' *************************************************************** 



MAPMEM: MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
CLR 
CLR 
JSR 



#STACK. SP 
*f€fflAP.RO 
#MEMnAP*2.Rl 

(RO) 
(Rl) 
R2 
#1. 
R4 

$TMP3 
R5. 



.WORD MEMMES 



R3 



SPRINT 



012737 003512 000004 
011222 

032702 017777 
001374 
050310 
050411 

010267 175540 
005367 1 75534 



IS: 



MOV 
MOV 
BIT 
BNE 
BIS 
BIS 
MOV 
DEC 



#2S, a#ERRVEC 
(R2). (R2)» 
mASK4K.R2 
IS 



R3. 
R4. 
R2. 
$TMP2 



(RO) 
(Rl) 
$TMP2 



.-RESET THE STACK 

.-SET UP MEMORY HAP POINTER... LO 64K. 
HI 64k 

•CLR MEMORY MAP...LO 64K. 
;...HI 64K. 

.-SET ADDRESS POINTER TO 0 
.-SETUP 4K BANK POINTER... LO 64K. 
;...HI 64K. 

;INIT TEMPORARY HIGH ADDRESS BITS. 

;60 PRINT OUT THE FOLLOWING MESSAGE. 

.-ADDRESS Of MESSAGE TO BE TYPED 

.-'MEMORY MAP:" 

;SET UP TIMEOUT VECTOR 

;READ*WRITE ALL MEMORY 

.•CHECK FOR 4K BOUNORY 

.-BRANCH IF MORE IN BANK 

;SET FLAG FOR BANK...LO 64K. 

;...HI 64K. 

;SAVE ADDRESS POINTER. 

.•ADJUST TO LAST ADR. LAST BANK, 
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SEO 0056 



6689 


003430 


005767 


175152 


6690 


003434 


001432 




6691 


003436 


042767 


160000 


6692 


003444 


013705 


172344 


6693 


003450 


005067 


175512 


669A 


003454 


006305 




6695 


003456 


006305 




6696 


003460 


006305 




6697 


003462 


006305 




6698 


003464 


006305 




6699 


003466 


006167 


175474 


6700 


003472 


006305 




6701 


003474 


006167 


175466 


6702 


003500 


060567 


175460 


6703 


003504 


005567 


175456 


6704 


003510 


000404 




6705 








6706 








6707 


003512 


022626 




6708 


003514 


052702 


0M777 


6709 


003520 


005202 




6710 


003522 


005767 


175060 


6711 


003526 


001411 




6712 


003530 


062737 


000200 


6713 


003536 


012702 


040000 


6714 


003542 


006303 




6715 


003544 


006104 




6716 


003546 


100316 




6717 


003550 


000402 




6718 








6719 


003552 


106303 




6720 


003554 


100313 




6721 


003556 


012737 


025124 


6722 


003564 


004767 


014632 


6723 


003570 


004567 


017726 


(2) 


003574 


001201 




6724 


003576 


011067 


175732 






/Si 1 1 /i7 


1 f^fHJ 


6726 


003606 


011000 




6727 


003610 


042700 


177760 


6728 


003614 


020027 


000017 


6729 


003620 


001530 




6730 


003622 


004567 


017674 


(2) 


003626 


025534 




(1) 
6731 


003630 


000000 




6732 








6733 








6734 








6735 








6736 








6737 


003632 


012706 


001100 


6738 


003636 


005067 


}7i,7^i, 


6739 


003642 


032777 


010000 


6740 


003650 


001011 




6741 


003652 


012737 


003674 



175520 



172344 



000004 





TST 




BEO 




BIC 




MOV 




CLR 




ASL 




ASL 




ASL 




ASL 




A CI 

A5L 




ROL 




ASL 




ROL 




ADD 




ADC 




BR 


• • 


Tjr'EOUT Tf 




CMP 




BIS 




INC 


3$: 


TST 








ADD 




MOV 




ASL 




ROL 




BPL 




BR 


4$: 


ASL8 




BPL 


5$: 


MOV 




JSR 




JSR 




.WORD 




MOV 




nuv 




MOV 




BJC 




CMP 




BEO 




JSR 




.WORD 


6$: 


HALT 



MMAVA 
3$ 

#160000.$TMP2 

airKIPAR^.R5 

$TMP3 

R5 
R5 
R5 
R5 
R5 

$TMP3 

R5 

$TMP3 

R5, $TMP2 

$TMP3 

3$ 



(SP)+, (SP)+ 

mASK4K,R2 

R2 

MMAVA 
4S 

#200, a#KIPAR2 

#40000, R2 

R3 

R4 

1$ 

5$ 



CHECK FOR MEM MGMT. 

BR IF NO MEM MGMT. 

CLEAR BANK BITS ON RELATIVE ADDRESS. 

SAVE KIPAR2. 

MAKE SURE HI BITS ARE INIT. 
SHIFT IT 6 PLACES. 



;MAXE LAST ADR PHYSICAL. 
;G0 TO UPDATE POINTERS. 



RESTORE THE STACK POINTER 
LAST ADDRESS OF 4K BANK 
FIRST ADDRESS OF NEXT BANK. 
CHECK FOR MEM MGMT 
BRANCH IF NO MEM MGMT 
UPDATE THIRD PAR 
POINT TO START OF THIRD PAR 
UPDATE LO BANK POINTER. 
UPDATE HI BANK POINTER 
8R;WCH if more memory TO MAP. 
EXIT WHEN DONE. 



R3 .-UPDATE MAP POINTER 

1$ .-BRANCH IF NOT YET DONE 

#ERRTRP. a#ERRVEC .-RESET TIMEOUT VECTOR 
PC, TYPrtAP ;60 TYPE THE MAP. 

R5, SPRINT ;60 PRINT OUT THE FOLLOWING MESSAGE. 
SCRLF .-ADDRESS OF MESSAGE TO BE TYPED 

(RO), SAVTST .-SET UP TEST MAP...LO 64K. 
(Rl), SAVTST+2 ;...HI 64K. 
(RO), RO .GET LOW MEM MAP 

#177760, RO .-MASK ALL BUT BOTTOM 4 BAWCS 
RO. #17 ;CHECK THAT BOTTOM 16K IS ALL THERE. 
GMPR ;BRANCH IF BOTTOM 16K EXISTS 

R5, SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 
INSUFF .-ADDRESS OF MESSAGE TO BE TYPED 

'TIRST 16K Of MEMORY NOT ALL THERE!" 
FATAL ERROR HALT... 

MEMORY IS NOT CONFIGURED TO RUN THIS PROGRAM. 

* SPECIAL ROUTINE TO TYPE OUT ALL UNIBUS ADDRESSES WHICH RESPOND TO 

• DATI, DATIP. OATO, AND DAT08. 

•******•*•**•***••*•*••«*»•»»»**»***••••••••••••••••••••••••••*• 



175270 
000004 



TIMOUT: MOV 
CLR 
BIT 
BNE 

nov 



#STACK, 
MMAVA 
#SW12. 
IS 

#1S, 



SP 



SET UP THE STACK POINTER. 
CLEAR MEM MGMT AVAILABLE FLAG. 
CHECK IF MEM MGMT TO BE INHIBITtD. 
BR IF NO MEM MGMT. 
a#ERRVEC .-SET TIMEOUT FOR MEM MbMT CHECK. 



8SWR 
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lb- 



SEQ 0037 



6742 
6743 
6744 
6745 
(2) 
(2) 
(1) 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
(2) 
(1) 
6757 
(1) 
6758 
6759 
6760 
6761 
6762 
6763 
(2) 
(1) 
6764 
6765 
(1) 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6782 
(2) 
(1) 
6783 
6784 
(1) 
6785 



003660 
003664 
003670 
003674 
003674 
003700 

003702 
003704 
003706 
003714 
003716 
003722 
003724 
003726 
003730 
003732 
003734 
003740 

003742 
003744 
003750 

003752 
003754 
003756 
003760 
003764 

003766 
003770 
003772 
003776 
004000 
004002 
004004 
004006 
004012 
004014 
004020 
004022 
004030 
004032 
004036 
004044 
004052 
004054 
004056 
004060 
004064 

004066 
004070 
004072 
004076 



005037 
004767 
005267 

004567 
025447 

005000 
005002 
012737 
105712 
032702 
001001 
011212 
151212 
005700 
001023 
004567 
025517 

010246 
004767 
000413 

022626 
005700 
001411 
004567 
025527 

005302 
010246 
004767 
005202 
005100 
005202 
001423 
032702 
001340 
005767 
001735 
022737 
001411 
012702 
013737 
062737 
000720 
005700 
001407 
004567 
025527 

005302 
010246 
004767 
000000 



177572 
010420 
174712 

017622 



003752 000004 
000001 



017562 
021212 

017536 
021164 



01 7777 
174566 

007600 1 72346 
060000 

172346 172344 
000200 172346 

017436 



021064 



1$: 



10S: 



11$: 



20S 



29$: 
30$: 



31$: 



32$: 



CLR 
JSR 
INC 

JSR 
.WORD 

CLR 

CLR 

MOV 

TST8 

BIT 

BNE 

MOV 

Bise 

TST 
BNE 
JSR 
.WORD 

MOV 

JSR 
BR 

TIME OUTS 
CMP 
TST 
BEO 
JSR 
.WORD 

DEC 
MOV 
JSR 
INC 
COM 
INC 
BEQ 
BIT 
BNE 
TST 
BEO 
CMP 
BEO 
MOV 
MOV 
ADD 
BR 
TST 
BEO 
JSR 
.WORD 

DEC 
MOV 
JSR 
HALT 



atrsRO 

PC. 
MMAVA 

R5. 

BYTMES 

RO 
R2 

#20$, 

(R2) 

*8IT0. 

11$ 

(R2), 

(R2). 

RO 

30$ 

R5. 

FROM 

R2. 

29i 
COME HERE 
(SP)*, 
RO 
30$ 
R5, 
TO 



MMINIT 



$PRINT 



.•CHECK FOR MEM MGMT. .. TIMES OUT If 
;INIT ALL MEM MGMT REGISTERS. 
;SET MEM MGMT AVAILABLE FLAG. 



NONE. 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
;'BYTE MEMORY MAP:" 
;SET UP TYPE OUT FLAG. 
.SET ADDRESS POINTER TO ZERO. 
WERR^EC .-SET TIME OUT VEC TO SERVICE NON-EX MEM. 
;D0 DATI ONLY. 
.CHECK FOR WORD ADDRESS. 
;BR IF ODD BYTE ADDRESS. 
;D0 DATI, DATO...NOP FOR READ ONLY MAP. 
;D0 DATI. DATIP, DATOB... NOP FOR READ ONLY MAP. 
.•CHECK FOR PREVIOUS TYPOUT. 
;8R IF ALREADY TYPED 'TROM". 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.ADDRESS OF MESSAGE TO BE TYPED 
;'TROM" 

;PUT THE DATA ON THE STACK. 
.•DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 
;60 TO ADDRESS POINTER UPDATE. 



R2 

(R2) 
(R2) 



$PRINT 



-(SP) 
$TYPAD 



(SP) + 



$PRINT 



-(SP) 
$TYPAD 



;POP TWO OFF STACK. 
.•CHECK FOR PREVIOUS TYPOUT. 
;8R IF ALREADY TYPED "TO". 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
;'T0" 

;8ACK UP ONE BYTE. 
.•PUT THE DATA ON THE STACK. 
.-DETERMINE THE PHYSICAL ADDRESS AND TYPE IT, 
.•RESET ADDRESS POINTER. 
.-RESET PREVIOUS TYPOUT FLAG. 
.-UPDATE ADDRESS POINTER TO NEXT BYTE. 
.-EXIT IF ZERO REACHED. 
.-CHECK FOR 4K BANK BOUNDRY. 
;BR IF MORE THIS 4K BANK. 
.•CHECK IF MEM MGMT IS AVAILABLE. 
;BR IF NO MEM MGMT. 
a4rKIPAR3 ;CHECK FOR END OF LAST 4K BANK. 
.-EXIT WHEN ALL DONE. 
#60000, R2 :RESET VIRTUAL ADDRESS POINTER. 

a#KIPAR3.a#KIPAR^ .-SAVE MEM MGMT REG FOR TYPEOUT, 



R2 
R2. 

PC, 
R2 
RO 
R2 
31$ 

#nASK4K.R2 
10$ 
MMAVA 
10$ 
#7600. 
31$ 



#200. 
10$ 

RO 
32$ 

R5, 
TO 

R2 
R2. 
PC, 



a#KIPAR3 .-UPDATE HEM MGMT REG 2 TO NEXT 4K BANK. 
.•BR BACK TO DO NEXT BANK. 
.•CHECK PREVIOUS TYPE FLAG BEFORE EXIT. 
;BR TO EXIT IF TYPING ALL DONE. 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.-ADDRESS OF MESSAGE TO BE TYPED 
.-■TO" 

.-BACK ADDRESS POINTER UP ONE BYTE. 
;PUT THE DATA ON THE STACK. 
.-DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 



$PRINT 



-(SP) 
$TYPAD 



* THIS ROUTINE IS FOR DEBUG USE ONLY. 
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SEO 0038 



6786 
6787 
6788 
6789 
679C 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
68K 
6815 
6816 
6817 
6818 
6819 
(2) 
(1) 
6820 
6821 
682? 



004100 000654 



004102 
004106 
004114 
004116 
004122 
004130 
004134 

004140 
004142 

004144 
004146 
004152 
004154 

004156 
004160 

004164 
004166 
004170 
004176 
004202 
004204 
004210 

004212 
004214 



012704 
032777 
001036 
012703 
012737 
042713 
005773 

012324 
000403 

022626 
052723 
005023 
005023 

005023 
020327 

103761 
005014 
012737 
005767 
001006 
004567 
025615 

005014 
000167 



002276 
000100 

002076 
004144 
000001 
000000 



000001 

002276 

025124 
176074 

017312 
001156 



175024 



000004 



TO RUN THE MAIN PROGRAM RESTART AT 200 OR 204. 
BR TIMOUT ;LOOP BACK AND DO AGAIN UPON CONTINUE. 

S8TTL MAP PARITY REGISTERS 

i SEARCH FOR PARITY REGISTERS PRESENT AND TYPE ADDRESSES OF THOSE FOUND 
• THAT ARE FUNCTIONAL AND HAVE CORRESPONDING PARITY MEMORY 



GMPR: MOV 4WPRX, R4 .SET UP POINTER TO PARITY REG EXIST TABLE. 

BIT #SW06. aSWR .CHECK FOR INHIBIT PARITY SWITCH. 
BNE GMPRD ;8R IF INHIBIT PARITY. 

MOV #MPRO, R3 .SET UP TABLE POINTER 

MOV #GnPRB. a#ERRVEC :SET UP TIMEOUT TRAP SERVICE 
GMPRA: BIC #1. (R3) .'CLEAR FLAG BIT IN TABLE 

TST a(R3) .-DOES THIS MEMORY PARITY REGISTER EXIST. 

IF IT DOESN'T EXIST. A TIMEOUT TRAP WILL GO TO 'IGMPRB". 
MOV 
BR 

;• TIMEOUT 
GMPR8: CMP 
BIS 

GMPRC: CLR 
CLR 



(R3)*, 
GMPRC 
COMES HERE 
(SP)*, 

(R3)* 
(R3)* 



(R4^* 



(SP)* 
(R3)* 



.-SAVE 
.SKIP 



IT IN THE PARITY REG EXIST TABLE. 
TIMEOUT SERVICE CODE 



RESTORE STACK POINTER 

SET FLAG TO INDICATE REGISTER NOT PRESENT 
CLEAR THE MAP...LG 64K. 
...HI 64K. 



000004 



GMPRD: 



CLR 
CMP 

BLO 
CLR 
MOV 
TST 
BNE 
JSR 
.WORD 

CLR 
JMP 



(R3)* .-...AND THE MASK. 

R3, #MPRX .HAVE WE CHECKED ALL REGISTERS? 

GMPRA ;N0 - GO BACK TO CHECK NEXT ONE 

(R4) .SET TERMINATOR IN PARITY REG EXIST TABLE. 
#ERRTRP,arERRVEC ; RESTORE TRAPCATCHER 

MPRX ;ANY PARITY REGISTERS PRESENT? 

MPAMEM ;YES - GO TEST CONTROLS PRESENT 



R5. 
MTR 

(R4) 
MANUAL 



SPRINT 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"m MEMORY PARITY REGISTERS FO!ND" 
MAKE SURE TABLE IS CLEAR. 

.-AND SKIP ALL CONTROLS TESTING 
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SEO 0039 



682A 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

683A 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 

6845 

6846 

6847 

6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 

6861 

6862 

6863 

6864 

6865 

6866 

6867 

6868 

6869 

6870 

6871 

6872 

6873 

6874 

6875 

6876 

6877 

6878 

6879 



004220 
004224 
004232 
004236 
004242 
004246 
004250 
004254 



004260 
004264 
004270 
004274 
004300 
004302 



S8TTL MAP PARITY MEMORY 



MAP C0RRESPOW)ENCE BETWEEN PARITY REGISTERS AND MEMORY. AND TYPE RESULTS 
NOTE THAT IF PARITY MEMORY IS NOT LOCATED CORRECTLY THAT IT IS IN ALL 
PROBABILITY DUE TO ONE OF THE FOLLOWING FAILURES: 

- SETTING WRITE WRONG PARITY DIDN'T CAUSE BAD PARITY TO BE WRITTEN 

- PARITY GENERATE OR DETECT LOGIC FAILED 

- PARITY ERROR BIT FAILED TO SET 

- PARITY BITS IN MEMORY LOCATION FAILED 

- I.E. BIT STUCK AT GOOD PARITY VALUE 



004767 
012767 
005067 
012702 
005767 
001404 
012702 
004767 



014054 
000001 
175310 
014000 
174340 

054000 
010030 



175312 



MPAMEM: JSR 
MOV 
CLR 
MOV 
TST 
BEQ 
MOV 
JSR 



PC. 
*1. 

BITPT+2 

#14000, 

MMAVA 

MAPRB 

#54000. 

PC. 



CLRPAR 
BITPT 

R2 



R2 

MMINIT 



INITIALIZE ALL PARITY REGISTERS 

INITIALIZE 4K POINTER 

CLEAR HI 64K POINTER 

SET ADR POINTER TO 14000. 

CHECK FOR MEM MGMT 

BRANCH IF NO MEM MGMT 

SET ADR POINTER TO PAR2 

SET UP ALL MEMORY MGMT REGISTERS, 



• • *************************************************************** 

•SET WRITE WRONG PARITY IN ALL REGISTERS PRESENT 

;* THEN WRITE TEST LOCATION VIA DATO I READ TEST LOCATION VIA DATI 

;* THEN CLEAR WRITE WRONG PARITY IN ALL REGISTERS. 

• • *************************************************************** 



005067 
005067 
012703 
032713 
001052 
013773 



175254 
175252 
002076 
000001 

001612 000000 



MAPRB: CLR PMEMAP 

CLR PMEMAP+2 

1$: MOV #MPRO. R3 

2$: BIT #1, (R3) 

BNE 3$ 

MOV a#wwp. a(R3) 



.•CLEAR THE PARITY MEMORY MAP 

.INITIALIZE TABLE ADDRESS 
;IS THIS REGISTER PRESENT? 
;N0 - GET THE NEXT ONE 
;YES - SET WRITE WRONG PARITY 

;AND CLEAR REST OF REGISTER 



004310 


011212 








MOV 


(R2). 


(R2) 


; WRITE IJ^ONG PARITY 


004312 


005712 








TST 


(R2) 




;READ WRONG PARITY 


004314 


043773 


001612 


000000 




BIC 


a#wwp. 


a(R3) 


.•CLEAR miJE WRONG PARITY 


004322 


005773 


000000 






TST 


a(R3) 




.•OTHERWISE, CHECK TO SEE IF THIS 

.•CONTROL REGISTER GOT A PARITY 
•ERROR 


004326 


100014 








BPL 


6$ 




.•BRANCH IF IT DIDN'T AND CHECK 


004330 


032773 


007740 


000000 




BIT 


#7740, 


a(R3) 


;IS IT A CORE PAR. REG. 


004336 


001404 








BEQ 


5$ 




.•BRANCH IF NOT. 


004340 


012763 


070032 


000006 




MOV 


#70032, 


6(R3) 


;IF IT IS SET UP MASK 


004346 


000413 








BR 


7$ 




;AND BRANCH TO SET BITS. 


004350 


012763 


077772 


000006 


5$: 


MOV 


M77772, 


6(R3) 


;IF MOS SET UP MASK 


004356 


000407 








BR 


7$ 




.-AND BRANCH TO SET BIT. 


004360 


032773 


007740 


000000 


6S: 


BIT 


#7740, 


a(R3) 


;IF ANY BITS ARE SET 


004366 


001417 








BEQ 


3$ 




;THEN CSR IS MSll-K. 


004370 


012763 


070000 


000006 




MOV 


#70000, 


6(R3) 


;IF MSll-K SET MASK. 


004376 


056763 


175142 


000002 


7$: 


BIS 


BITPT, 


2{R3) 


;SET FLAG IN MAP FOR THIS PARITY REGISTER 


004404 


056763 


175136 


000004 




BIS 


BITPT+2,4(R3) 




004412 


056767 


175126 


175120 




BIS 


BITPT, 


WEMAP 


;SET FLAG IN PARITY MAP 


004420 


056767 


175122 


175114 




BIS 


BITPT+2,PMEMAP+2 


004426 


062703 


000010 




3$: 


ADD 


#10. 


R3 


.STEP UP TO NEXT REGISTER 


004432 


020327 


002276 






CMP 


R3. 


#MPRX 


;ARE WE DONE WITH TABLE? 



r\/\j / »^ 


103^16 








Ol A 

OLO 


5* 
c> 


uO BAl.^ 10 LHtL^ rOK Wl nUKt 




A1 1 O 

Ul Ic 








nuv 


V / , V He ' I 


n CAD DAn BAD I TV 






17/ 1 / A 






T C T 


MMAV/A 


LnCL^ r UK ^cn nun 1 




AAi / / / 








DC A 


in* 


OK ir fMU ^n r^r\\ 


A/V/ / CA 


A^07T7 


AAAOAA 
000^00 


1 701/./ 








• lOnATC DAD TD AiCvT BAKlk' 




OOojo^ 


1 7^A<.'D 






ACI 


DT TDT 


■IDHATC BAMV PTIIMTCO 1 A 




OOd lO^ 


1 7CAiL.A 

1 r 5UoO 








B I TDT*5 

Di 1 r 1 *C , 


. . .ni O'*^. 




1 AAy / 1 








QM I 


TMAD 

1 rlrV 


• QO IF Al 1 nAAIC 

OK ir ALL l/Unc . 


A/V/ / 7A 


\Jd5fcf 


1 701/ / 


AAI AAA 

00 1 000 






r^mr I p«pO il1iW^ 


• Tuic rnf>c TccTC ic mcii— ^ ic 
Inio LUVC IColo ir no 1 1 ^ id 


AAy / 


OOlUl J 










1 5* 


•PDCCCKiT AAtf^ ir IT IC I CCT 
rT^CoCnll Ar*/ ir i 1 ii i it 1 


AAy c/v^ 


A70'77'7 


AAAAAT 

000003 


AAOO<»n 

OOfcOO 




D I T 


w j,»wnKr< 1 


• Tuc BIT Tn n T caoj c err iiu 




00 IOU*» 








tJIMt 


1 7t 


• TUC 1 nrATinu ixc tuat ic 

, 1 nC LULAIiWM wW 1 fin 1 ij 




f\75777 

VJCf Jf 




nn5570 




BIT 




;USED AS THE COWAND TO 


UU*»J lO 


00 •'•OO 








DC U 


1 

1 J9 


;yRITE URONG PARITY, 




m 57T7 


Aoruw. 
OcLNAK* 


lA/ 1 O 1 c 




MDV/ 

nuv 








n7A7/\7 
UjOr Of 


1 7^ni 5 

1 f J\J 1 c 


1 7L77CS 
1 / *♦ r / U 


1 • 


BIT 


BITPT MFMMAP 


■rupr^ TP RAMk' P¥lCTC 1 n 


UU*» 


00 1 CJJ 








BMP 




•BO IP BAM^ CVICTC 
,OK ir DnTP^ CAiOio. 




n7A7A7 
OjO' Of 








BIT 


BITPT*.? MFRMAP*? 


( . • . Hi 0'«^ • 

•BO IP OAM^ PylCTC 
,on ir QnT^ CAiOio. 

■BR IF BANK DOESN'T EXIST 




OO 1 CJ 1 








BMP 

one 


1< 
1 9 




000740 








BR 


4$ 


004550 


036767 


174770 




11$: 


BIT 


BITPT. MEHNAP 


.•CHECK If BANK EXISTS. 


004556 


001244 








BNE 


1$ 


'BR IF BANK EXISTS 


004560 


062702 


020000 




10$: 


ADD 


#20000. R2 


•UPDATE ADDRESS POINTER TO NEXT BANK. 


004564 


106367 


174754 






ASL8 


BITPT 


.•MOVE POINTER TO NEXT BANK. 


004570 


100367 








BPL 


11$ 


;BR IF MORE TO LOOK FOR. 
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6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
68% 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 

6911 004572 004767 013502 

6912 004576 004567 016720 
(2) 004602 025472 

(1) 

6913 004604 012703 002076 

6914 004610 032713 000001 

6915 004614 001046 

6916 004616 022763 070032 

6917 004624 001004 

6918 004626 004567 016670 
(2) 004632 026133 

(1) 

6919 004634 000417 

6920 004636 022763 077772 

6921 004644 001004 

6922 004646 004567 016650 
(2) 004652 026152 

(1) 

6923 004654 000407 

6924 004656 022763 070000 

6925 004664 001003 

6926 004666 004567 016630 
(2) 004672 026170 

(1) 

6927 004674 
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:eo 0040 



■ • 



**************************************************************** 

ROUTINE TO TYPE MAP OF WHERE PARITY MEMORY IS PRESENT 
AND UHICH CONTROL REGISTERS CONTROL WHICH MEMORY 



000006 



000006 



000006 



TMAP: 


JSR 
JSR 
.WORD 


PC. 
R5. 
MTMAP 


1$: 


MOV 
BIT 
BNE 
CMP 
BNE 
JSR 
.WORD 


IWPRO. 
#81 TO. 
2$ 

#70032. 
3$ 

MX5 


3$: 


BR 

CMP 

BNE 

JSR 

.WORD 


5$ 

1177772. 
4$ 
R5. 
MX4 


4$: 


BR 

CMP 

BNE 

JSR 

.WORD 


5$ 

#70000. 
5$ 

MX^ 



CLPPAR 
$PRINT 



R3 
(R3) 

6(R3) 

$PRINT 

6(R3) 
$PRINT 

6(R3) 
$PRINT 



5$: 



INITIALIZE ALL PARITY REGISTERS PRESENT 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS Of MESSAGE TO BE TYPED 

•PARITY MEMORY MAP:" 

INITIALIZE TABLE POINTER 

CHECK If THIS REGISTER IS PRESENT. 

BR If NOT PRESENT. 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
"CORE PARITY" 



GO PRINT OUT THE FOLLOWING MESSAGE, 
ADDRESS OF MESSAGE TO BE TYPED 
'MOS PARITY" 



GO PRINT OUT THE FOLLOWING MESSAGE, 
ADDRESS OF MESSAGE TO BE TYPED 
•WS11-K CSR" 
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SEQ 0041 



(2) 
(2) 
(1) 
6928 
(3) 
(3) 
(3) 
(3) 
6929 
(2) 
(1) 
6930 
6931 
6932 
6933 
693A 
6935 
6936 
6937 
6938 
6939 
6940 
6941 
6942 
6943 
6944 
6945 
6946 
6947 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 



004674 
004700 



004567 
026101 



004702 01 1 346 



004704 
004710 
004714 
004720 

004722 
004724 
004726 
004732 
004736 
004742 
004744 
004750 

004752 
004760 
004762 
004770 
004776 
005004 
005006 
005014 
005022 
005026 
005032 
005034 
005036 
005044 
005050 
005052 
005054 
005062 
005066 
005070 
005074 
005076 



005102 
005106 
005110 
005114 
005120 
005122 



013746 
004767 
004567 
026120 

010300 
005720 
004767 
062703 
020327 
103722 
004567 
001201 

022737 
001006 
043727 
043737 
022737 
001031 
043737 
043737 
012705 
021537 
001004 
005015 
052737 
022537 
001366 
005045 
052737 
004567 
026206 
005737 
001002 
000167 



012703 
011302 
062703 
032702 
001372 
020327 



016622 



177776 
020004 
016602 



013470 
000010 
002276 

016552 



070000 002264 



002260 
002262 
070000 

002270 
002272 
002276 
002256 



000001 
002266 



000001 
016434 

002276 

000274 



002076 

000010 
000001 

002276 



JSR 
.WORD 



R5. 
MX1 



SPRINT 



(R3),-(SP) 



GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
•REGISTER AT" 
.SAVE (R3) FOR TYPEOUT 



MOV 

;• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPQC ROUTINE 
;• WIHTOUT USING A 'TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC««. 



2$: 



001540 
001540 
002274 

001540 
001542 



002256 



002266 



7$: 



6S: 



8$: 



9$: 



MOV 

JSR 
JSR 
.WORD 

MOV 
TST 
JSR 
ADD 
CMP 
BLO 
JSR 
SCRLF 

CMP 

BNE 

BIC 

BIC 

CMP 

BNE 

BIC 

BIC 

MOV 

CMP 

BNE 

CLR 

BIS 

CMP 

BNE 

CLR 

BIS 

JSR 

.WORD 

TST 

BNE 

JMP 



a»psw. 

PC. 

MX^ 

R3. 

(RO)* 

PC. 

#10. 

fi3. 

1$ 

R5. 



-(SP) 
STYPOC 
SPRINT 



RO 

TYPMAP 
R3 

#MPRX 
SPRINT 



;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 

'CONTROLS" 
;SET UP RO FOR TYPMAP ROUTINE. 
; UPDATE POINTER TO MAP. 

;G0 TYPE THE MEMORY COVERED BY THIS REGISTER. 
; UPDATE TO NEXT REGISTER IN TABLE. 
;ARE WE ALL DOf»« WITH TABLE? 
.•BRANCH IF MORE REGISTERS 
;THE REASON I'M 0UTPUTTIN6 THIS CRLF 
;IS TO GIVE THE PRINTER ENOUGH TIME TO 
.-FINISH PRINTING THE MEMORY MAP BEFORE THE RESET OCCURS. 
*70000.aW1PR14*6 ;D0 WE HAVE MS11-K AT THIS ADDRESS 
7$ :IF NO BRANCH 

a#»iPR14*2.#PMEMAP ;IF YES THEN CLEAR THE BITS IN 
a#MPR14-»-4,a*PMEM(V> ;THE PARITY MEMORY MAP- 
#70000, a#HPR15-^6 ;D0 WE HAVE A MS11-K 

9$ ; IF NO 60 TO TESTS NOW. 

a#MPRl5*2,a#PMEMAP ;IF YES I AM GOING TO 

a#MPR15*4^a#PMEMV>*2 .CLEAR THE PARITY INDICATORS 
.-FOR THAT PORTION OF MEMORY. 
.-SEARCH FOR THIS MS11-K CSR IN 
;AND IF ITS THERE DELETE IT 



#MPRX . R§ 
(R5}.a#MPR14 
8S 

(R5) 

#i.a#npRi4 

(R5)*, a#HPR15 .-SEARCH FOR MS11-K CSR IN 

6$ .-THE AVAILABILITY TABLE. 

-(R5} .-AND CLEAR ITS ADDRESS FROM THE TABLE 

#1. a#MPR15 .-SET BITO IN ADDRESS IN CSR TABLE 

R5. SPRINT .-OUTPUT MESSAGE TO RUN MS11-K TEST. 

MX6 

adWPRX .-ARE THERE ANY PARITY REGISTERS TO TEST? 

CTRLS .-IF SO TEST THE BITS IN THE REGISTERS. 

MANUAL ;IF NO Jlff> OVER REGISTER TESTS. 



S8TTL TEST PARITY REGISTERS 

• ************************************* ft 

i SHOW THAT BITS 0. 2, 5 - 11 . AND 15 OF EACH PARITY REGISTER PRESENT 

♦ CAN BE SET AND CLEARED. 

• THIS IS A ONCE ONLY TEST. 



CTRLS; 
1$: 



MOV 
MOV 
ADD 

BIT 
BNE 
CMP 



#HPRO, 

(R3). 

#10. 

#1, 

IS 

R3. 



R3 
R2 
R3 
R2 

#MPRX 



LOAD INITIAL TABLE ADDRESS FOR A POINTER 

LOAD R2 WITH ADDRESS OF THIS PARITY REGISTER 

UPDATE POINTER TO NEXT PAR. REG. ADD. 

IS THIS REGISTER BEING USED? 

GO TO NEXT IF NOT 

ARE WE AT END OF TABLE 
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6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
698A 
(2) 
(2) 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
(2) 
(3) 
l4) 
(4) 
(2) 
6992 
6993 
699A 
6995 
(2) 
(2) 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
701 ^ 
7013 
70U 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
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SEO 0042 



005126 


003055 






BGT 


RESCHK 




GO TO NEXT TEST IF YES 


005130 


005763 


177776 




TST 


-2(R3) 




TEST MASK FOR PARITY REGISTER 


005134 


001764 






BEO 


1$ 




IF = O.THEN DO NOT TEST 


005136 


016367 


177776 174352 




MOV 


-2(R3). 


RESRVD '. 


GET MASK FOR REGISTER UE ARE WORKING ON 


005144 


012700 


000001 




MOV 


(R2) 


RO 


LOAD RO WITH VALUE Of 1ST BIT TESTED 


005150 


005012 






CLR 




INITIALIZE THE PARITY REGISTER 


005152 


011201 






MOV 


(R2). 
RESRVD. 


R1 ! 


READ THE CONTENTS Of THE PARITY REGISTER 


005154 


046701 


174336 




SIC 


R1 


CLEAR BITS WHICH ARE RESERVED 


005160 


001405 






BEO 


2$ 




CHECK OTHER BITS - BRANCH IF OK 


005162 


004767 


013134 


64$: 


JSR 


PC. 
PC. 


SPRNT i 


SET UP VALUES FOR ERROR PRINTING. 


005166 


004767 


014456 




JSR 


$ERROR . 


**• ERROR *** (GO TYPE A MESSAGE) 


005172 


000001 






.WORD 


1 




ERROR TYPE CODE. 


005174 


030067 


174316 


2$: 


BIT 


RO. 


RESRVD ! 


IS THIS BIT RESERVED? 
YES - DON'T TEST IT 


005200 


001025 






BNE 


3$ 




005202 


010012 






nov 


RO. 


(R2) '. 


•NO - SET THIS BIT IN THE PARITY REGISTER 


005204 


011201 






nov 


(r5). 


Rl 


•READ & SAVE CONTENTS OF THE PARITY REGISTER 


005206 


005012 






CLR 


(R2) 




■CLEAR THE PARITY REGISTER 


005210 


046701 


174302 




BIC 


RESRVD. 


Rl 


•CLEAR BIT LOCATIONS THAT ARE RESERVED 


005214 


020001 






CMP 


RO. 


Rl 


■COMPARE THE CHECK WORD WITH THE DATA READ. 


005216 


001405 






BEO 


66$ 




;BRANCH OVER ERROR CALL IF GOOD DATA. 


005220 


004767 


013126 


65$: 


JSR 


PC. 
PC. 


SPRNTO 


:SET UP VALUES FOR ERROR PRINTING. 


005224 


004767 


014420 




JSR 


$ERROR 


ERROR *** (GO TYPE A MESSAGE) 


005230 


000001 






.WORD 


1 




; ERROR TYPE CODE. 


005232 






66$: 










005232 


011201 






MOV 


(R2). 


Rl 


.•READ THE CONTENTS OF THE PARITY REGISTER 


005234 


046701 


174256 




BIC 


RESRVD. R1 


; CLEAR BITS WHICH ARE RESERVED 


005240 


001405 






BEO 


3$ 




.•CHECK OTHER BITS - BRANCH IF OK 


005242 


004767 


013054 


67$: 


JSR 


PC. 


SPRNT 


;SET UP VALUES FOR ERROR F>RINTING. 


005246 


004767 


014376 




JSR 


PC. 


$ERROR 


ERROR *** (GO TYPE A MESSAGE) 


005252 


000001 






.WORD 


1 




; ERROR TYPE CODE. 


005254 


006300 




3$: 


ASL 


RO 




.•ROTATE TO GET NEXT BIT TO BE TESTED 


005256 


103346 






sec 


2$ 




.-BRANCH IF NOT DONE WITH ALL BITS 


005260 


000712 






BR 


1$ 




.•AFTER TESTING FOR BIT 15 GO GET NEXT REGISTER. 



• ************* A************************************************* 

• SHOW THAT RESET CLEARS BITS 0.2. AND 15 OF EACH PARITY REGISTER PRESENT. 

• THIS IS A ONCE ONLY TEST. 

- *************************************************************** 



005262 
005266 
005270 
005274 
005300 
005302 
005310 
005314 
005316 
005320 
005324 
005326 
005332 
005336 
005340 
005344 
005346 



012704 
010403 
062704 
032713 
001372 
012773 
022704 
002764 
000005 
012703 
011302 
062703 
032702 
001372 
022703 
002014 
on 201 



002076 

000010 
000001 

mill 

002276 



002076 

000010 
000001 

002276 



RESCHK: 
1$: 

BIT 



000000 



2$: 



MOV 

MOV 

ADD 

*1. 

BNE 

MOV 

CMP 

BLT 

RESET 

MOV 

MOV 

ADD 

BIT 

BNE 

CMP 

BGE 

MOV 



*MPRO. 

#10, 
(R35 
1$ 

*-1. 

^fVRX, 

1$ 

*MPRO, 

(R3). 
#10. 
#1. 
2$ 

#MPRX , 
MANUAL 

(R2). 



R4 



R4 .-LOAD INITIAL TABLE ADDRESS FOR A POINTER 

R3 
R4 

;IS THIS REGISTER BEING USED 

.BRANCH IF NO 
a(R3) ;SET ALL BITS TO A 1 

ARE WE AT THE END OF THE TABLE 
IF YES THEN WE ARE READY TO TEST 
RESET THE WORLD 

LOAD INITIAL ADDRESS FOR POINTER 
STORE PARITY REGISTER ADDRESS 



R3 
R2 
R3 
R2 



R3 

Rl 



.GET CONTENTS OF REGISTER 



E 4 



CZQMCGO 0-12^.1^ MEMORr EXERCISER. 16H VFR NACVll 30A(1052) 

CZQMCG.Pll 12-MAR-80 13:07 TEST PARiTV REGISTERS 

7022 005350 005012 

7023 005352 042701 077772 
702A 005356 005701 

7025 005360 OOU05 

(2) 005362 004767 012754 64S: 

(3) 005366 004767 014256 
(3) 005372 000001 

(1) 005374 65S: 

7026 005374 000753 
7027 
7028 

7029 005376 012700 OOOOK MANUAL; MOV RO 

7030 005402 012701 001562 MOV #FSTADR.R1 

7031 005406 005021 M: CLR (Rl>* 

7032 005410 005300 DEC RO 

7033 005412 001375 BNE It 
7054 005414 105767 174136 TST8 SELFLG 

7035 005420 001005 8NE MANULl 

7036 005422 016767 173536 174144 MOV ITMP2, LSTADR 

7037 005430 000167 000402 JMP MANUL^ 
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CLR 


(R2) 




BIC 


9(7 77 i. 


R1 


TST 


Rl 




BEQ 


65S 




JSR 


PC. 


SPRNT 


JSR 


PC. 


SERROR 


.WORD 


1 




BR 


2t 





SEO 0043 



CLEAR BITS MOT EFFECTED Bv RESET 
CHECK IF REST WERE CLEARED BY RESET 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
••• ERROR (GO TrPE A MESSAGE) 
ERROR TYPE CODE. 

.-BRANCH BACK TO CHECK NEXT REGISTER 



SET COLNTER TO CLEAR 12 WORDS. 

STARTING AT FSTAOR. 

CLEAR THE LOCATIONS. 

COUNT. 

BR IF MORE. 

CHECK FOR SELECT PARAMETERS S)ARTUP. 
BR IF PARAMETERS TO BE SELECTED 
SET UP VIRTUAL LAST ADDRESS. 
SKIP PARAMETER SELECTION SECTION. 



F ^ 
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SEO 004^ 



7039 
70A0 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
(2) 
(1) 
7048 
(2) 
(2) 
(2) 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 
7068 
(2) 
-2) 
(1) 
7069 
(2) 
(2) 
(2) 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7079 
7080 
7081 
7082 
7083 



005454 
005440 
005442 
005444 
005446 
005452 



005454 
005460 
005464 
005470 
005474 
005500 
005504 
005506 
005512 
005514 
005516 
005520 
005522 
005524 
005526 
005530 
005532 
005536 
005540 
005544 
005546 
005552 
005552 
005556 



012700 
005001 
005002 
005003 
004567 
026321 



013746 
004767 
042716 
005067 
005067 
062702 
005503 
020 V,7 
103403 
•01006 
020216 
101004 
006300 
006101 
100364 
000507 
030067 
001003 
030167 
001501 
016704 

004567 
026406 



000001 



016050 



177776 
015664 
000001 
174040 
174036 
020000 

016006 



173766 
17^762 
015746 
01 5744 



S8TTL USER PARAMETER SELECTION SECTION 



• USER PARAMETER SELECTION SECTION IS ENTERED BY STARTING AT 204. 



MANULI 



MOV 
CLR 
CLR 
CLR 
JSR 
.WORD 



#BITO. 

R1 
P2 
R3 
R5. 

FADMES 



RO 



SPRINT 



It: 



2$: 



3$; 



4S: 
10$: 



SET UP BANK POINTER. 
...HI 64K. 

CLEAR ADDRESS POINTER. 
...HI ADDRESS BITS. 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
•TIRST ADDRESS:" 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE 
WIHTOUT USING A "IRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 

PUT THE PROCESSOR STATUS ON THE STACK 
GO TO THE SUBROUTINE 

MAKE SURE ADDRESS IS ON A WORD BOUNDRV. 
INIT TEST MAP..,LO 64K. 
...HI 64K. 

UPDATE ADDRESS POINTER TO NEXT BANK. 

CHECK HI ADDRESS BITS. 
8R IF NOT HI ENOUGH YET. 
BR IF PAST SELECTED ADDRESS. 
CHECK THE LO ADDRESS BITS. 
BR IF PAST SELECTED ADDRESS. 
UPDATE POINTER... LO 64K. 
...HI 64K. 

BR BACK TO CHECK NEXT BAM(. 
BR IF OVERFLOW. 
CHECK IF BANK EXISTS- 
BR IF BANK EXISTS. 
.CHECK HI 64K. 

BR IF ADDRESS IN lf*-«APPED BANK. 
SAVE FIRST ADR HI BITS. 



MOV 


atpsw. 


-(SP) 


JSR 


PC. 


SRDOCT 




*8IT0. 


(SP) 


CLR 


SAVTST 




CLR 


SAVTST*2 


ADD 


#20000. 


R2 


ADC 


R3 




CMP 


R3. 


SHIOCT 


BLO 


2$ 




BHI 


3$ 




CMP 


R2. 


(SP) 


BHI 


3S 




ASL 


RO 




ROL 


Rl 




BPL 


IS 




BR 


17$ 




BIT 


RO. 


ME WAP 


6NE 


4$ 




BIT 


Rl. 


MEMMAP 


BEO 


17$ 




MOV 


$HI0CT. 


R4 


JSR 


R5, 


SPRINT 


.WORD 


LADMES 





;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.ADDRESS Of MESSAGE TO BE TYPED 
:'IAST ADDRESS:" 

• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDOCT ROUTINE 











WIHTOUT 


USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYS«AC**. 


005560 


013746 


177776 




MOV 


arpsw. 


-(SP) 


•PUT THE PROCESSOR STATUS ON THE STACK 


005564 


004767 


015560 




JSR 


PC. 


$RDOCT . 


■GO TO THE SUBROUTINE 


005570 


005716 






TST 


(SP) 




CHECK IF ADR 0 SELECTED (DEFAULT). 


005572 


001010 






BNE 


11$ 




•BR IF NOT 0 (DEFAULT) 


005574 


005767 


015720 




TST 


$HI0CT 




CHECK HI BITS. 


005600 


001005 






BNE 


11$ 




•BR IF NOT 0 (DEFAULT). 


005602 


016716 


173356 




MOV 


$TMP2. 


(SP) ; 


■SET UP DEFAULT LAST ADR. 


005606 


016767 


173354 015704 




MOV 


$TMP3. 


$HIOCT 




005614 


012667 


173754 


11$ 


MOV 


(SP)*. 


LSTADR . 


•GET THE DATA. 


005620 


020467 


015674 




CMP 


R4. 


SHIOCT . 


■CHECK FOR LAST ADR BELOW FIRST ADR. 


005624 


101352 






BHI 


10$ 




■86 IF LAST BELOW FIRST. 


005626 


103403 






BLO 


12$ 




■BR IF LAST /«OVE FIRST. 


005630 


021667 


173740 




CMP 


(SP). 


LSTADR 


■CHECK FOR LAST BELOW FIRST. 


005634 


101346 






BHI 


10$ 




■BR IF LAST BELOW FIRST. 


005636 


032716 


017777 


12$ 


BIT 


#mSK4K.(SP) 


■CHECK IF FIRST ADR ON BANK BOUT^RY. 


005642 


001404 






BEO 


13$ 




■BR IF ON 60UNDRY. 



G 4 
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708A 


005644 


010067 


1 73720 






MOV 


RO. 


fAOHAP .SET UP FIRST ADDRESS MAP. 


7085 


005650 


010167 


173716 






MOV 


R1. 
RO. 


FADMAP^2 




7086 


005654 


050067 


1 73654 




13S: 


BIS 


SAVTST ; 
SAVTST*2 


SET FLAG IN TEST MAP...LO 64K, 


7087 


005660 


050167 


173652 






BIS 


R1. 
R3. 
15i 


« • • • H I • 

CHECK FOR PAST LAST ADR. 


7088 


005664 


020367 


015630 




14$: 


CMP 


$HI0CT ; 


7089 


005670 


103404 








BLO 




BR IF BELOW LAST ADR. 


7090 


005672 


101020 








6HI 


16$ 




BR IF GONE PAST LAST ADR. 


7091 


005674 


020267 


173674 






CMP 


R2. 
16i 


LSTADR ; 


CHECK FOR PAST LAST ADR. 


7092 


005700 


101015 








BHI 




8R IF GONE PAST LAST ADR. 


7093 


005702 


062702 


020000 




15$: 


ADD 


*20000. 


R2 ; 


UPDATE ADDRESS POINTER. 


7094 


005706 


005503 








ADC 


R3 




...HI BITS. 


7095 


005710 


006500 








ASL 


RO 




UPDATE BANK POINTER... LO 64K. 


7096 


005712 


006101 








ROL 


Rl 




...HI 64K. 


7097 


005714 


100415 








BMl 


17$ 




BR IF OVERFLOW. 


7098 


005716 


030067 


1 73602 






BIT 


RO. 


MEMMAP '. 


CHECK IF THIS BANK EXISTS. 


7099 


005722 


001354 








6NE 


15$ 




BR IF BANK EXISTS. 


7100 


005724 


030167 


173576 






BIT 


Rl. 


MEMMAP*2' 


.•CHECK IF THIS BANK EXISTS. 


7101 


005730 


001351 








BNE 


15$ 




BR IF BANK EXISTS. 

BR IF BANK DOESN'T EXIST. 


7102 


005732 


000754 








BR 


14$ 




7103 


005734 


030067 


173564 




16$: 


BIT 


RO. 


MEMMAP '. 


-CHECK IF THIS BANK EXISTS. 


7104 


005740 


001010 








BNE 


20$ 




•BR IF IT EXISTS. 


7105 


005742 


030167 


173560 






BIT 


Rl. 


M£MMAP*2' 


.-CHECK IF THIS BANK EXISTS. 


7106 


005746 


001005 








BNE 


20$ 




•BR IF IT EXISTS. 


7107 


005750 


005726 






17$: 


TST 


(SP)* 




•ADJUST THE STACK. 


7108 


005752 


004567 


015544 






JSR 


R5. 


$PRINT 


•GO PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


005756 


026431 








.WORD 


BADADR 




; ADDRESS OF MESSAGE TO BE TYPED 
;"? ADDRESS IN UflAPPED BANK?" 


(1) 


















7109 


005760 


000606 








BR 


MANUAL 




;LOOP BACK TO THE BEGINNING. 


7110 


005762 


010067 


173614 




20$: 


MOV 


RO. 


LADMAP 


;SET UP MAP FOR LAST ADDRESS. 


7111 


005766 


010167 


173612 






MOV 


Rl. 


LADMAP+2 




7112 


005772 


005767 


172610 




21$: 


TST 


MPIAVA 




; CHECK FOR MEMORY MANAGEMENT. 


7113 


005776 


001404 








BEO 


22$ 




;8R IF NO MEM MGMT. 


71 K 


006000 


042716 


160000 






BIC 


#160000. (SP) 


; ADJUST FSTADR TO VITRUAL BANK 0. 


7115 


006004 


062716 


040000 






ADD 


#40000. 


(SP) 


;...T0 VIRTUAL BANK 2. 


7116 


006010 


012667 


1 73546 




22$: 


MOV 


(SP)*. 


FSTADR 


;SAVE FISRT ADDRESS OFF THE STACK. 


7117 


006014 








30$: 










(2) 


006014 


004567 


015502 






JSR 


R5. 


$PRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


006020 


026466 








.yORD 


CONST 




.ADDRESS OF MESSAGE TO BE TYPED 
.•"SELECT CONSTANT: " 


(1) 


















7118 










;• THE 


NEXT 


TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $RDOCT ROUTH 


(2) 










WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SrSrtAC**. 


(2) 


006022 


013746 


177776 






MOV 


aurpsw. 


-(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


(2) 


006026 


004767 


015316 






JSR 


PC. 


SRDOCT 


;G0 TO THE SUBROUTINE 


7119 


006032 


012667 


173552 






MOV 


(SP)*. 


.CONST 


.•SAVE THE CONSTANT 


7120 


006036 


005767 


1 72544 




MANUL2: 


TST 


MKAVA 




.•CHECK IF MEM MGMT IS AVAILABLE. 


7121 


006042 


001406 








BEO 


31$ 




,BR IF NO MEM MGMT. 


7122 


006044 


042767 


160000 


173522 




BIC 


#160000, LSTADR 


.ADJUST LSTADR TO VIRTUAL BANK 0. 


7123 


006052 


062767 


040000 


173514 




ADD 


#40000. 


LSTADR 


VIRTUAL BAM( 2 


7124 


006060 


062767 


000002 


173506 


31$: 


ADD 


#2. 


LSTADR 


•ADJUST LAST ADDRESS UP ONE WORD. 


7125 


00606)6 


042767 


000001 


175500 




BIC 


#8IT0. 


LSTADR 


.•MAKE SURE IT IS A WORD ADDRESi. 


7126 


006074 


032767 


0T7777 


} 73^72 




BIT 


#WASK4K.LSTADR 


.CHECK IF LAST ADR IS ON BANK BOUf>.DSr. 


7127 


006102 


001004 








BNE 


STARTl 




.•BR IF NOT ON BOUNORY. 


7128 


006104 


005067 


}7ii,72 






CLR 


LAO«AP 




.CLEAR OUT THE LAST ADDRESS MAP. 


7129 
7130 


006110 


005067 


175470 






CLR 


LADMAP»2 
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SEO 0046 



7135 
7136 
7137 
7138 
71 39 
7U0 
7U1 
7U2 
7K3 
7K4 
7K5 
7U6 
71 A7 
7148 
71 S7 
(3) 
(4) 
(4) 
C4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
7158 
7159 
7160 
7161 
716? 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 
7163 
7164 
(1) 
(i) 
7165 
7166 
/167 
7168 
7169 
7170 
71 71 



/•\:/«\:/»\:/«\:/*\:/«\:/*\:/»\:/*\:/*\:/*\:/«\:/*\:/*\:/*\:/*\:/*\:/»\: 

• THE REST OF THE PROGRAM IS POSFION INDEPENDENT CODE. SO THAT IT CAN EXICUTE PROPERl r WHEN iHf PROGRAM HAS BEEN RELO 

• THIS IS DONE SO THAT THE FIRST TWO BANKS Of MEMORY CAN BE EXERCISED IN EXACTLY THE SAME MANNER AS THE REST OF MEMORY 



006114 
006120 
006124 
006126 
006134 
006142 
006150 
006154 
006160 
006162 
006170 
006172 



006176 
006176 
006202 



006210 
006214 
006220 
006222 
006224 
006226 
006230 
006234 
006240 
006242 
006242 
006246 
006250 
006252 



006256 
006262 
006266 
006272 



016706 
005767 
001403 
052777 
012767 
066767 
004767 
005767 
001406 
032737 
001002 
004767 



004567 
000001 



006204 000167 



004467 
004767 
010012 
012201 
020001 
001405 
004767 
004767 
000002 

062700 
030502 
001563 
004767 



004467 
004767 
162700 
014201 



173502 
173472 

000014 
006114 
172432 
011372 
1 72426 



012436 
005604 



006222 
007644 



012142 
013410 



000002 
006736 



006612 
007576 
000002 



1 73464 
172744 
172736 



000001 177572 
006112 



START!: MOV 
TST 
BEO 

BIS 

1$: MOV 

ADD 
JSR 
TST 
BEQ 
BIT 
BNE 
JSR 

S8TV SECTION 1 



.STACK. SP 
CASFLG 
1S 

#14. aCASREG 
#START1.tLPADR 
RELOCF. SLPADR 



PC. 
MMAVA 

TST1 
*8IT0. 
TST1 
PC. 



HAMF 



»rSRO 
MMINIT 



SET STACK POINTER 
CHECK CACHE PRESENT FLAG 
BAANCH IF NO CACHE 
TURN OFF CACHE 
INIT LOOP ADDRESS. 

SET UP MEMORY PARITY ERROR VECTOR 
CHECK FOR MEMORY MANAGEMENT AVAILABLE, 
BRANCH IF NO MEM MGMT. 
CHECK IF MEM MGMT ENABLED. 
BR IF MEM MGMT ENABLED. 
SET UP MEM MGMT REGISTERS. 



MEMORr' ADDRESS TESTS 



•TEST 1 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 

• RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 

• R1 = DATA READ FROM MEMORY (WAS) 

• R2 = VIRTUAL ADDRESS 

• R3 = NOT USED 

• R4 = NOT USED 

• R5 = BLOCK BOUNDRY BIT MASK. 



TST1: 



JSR 
.WORD 

JMP 



R5. 
1 

TST 32 



SSCOPE 



;* UPWARDS WORD ADDRESSING. 



1S: 
2S: 



64S: 
65 J: 



CHECK THAT VALUE OF MEMORY ADDRESS WAS WRITTEN CORRECTLY 
DOWNWARDS WORD ADDRESSING. 



GO TO SCOPE ROUTINE. 

MINIMlfl BLOCK SIZE OF 1 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 



JSR 


R4. 


INITMM 


.-INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC. 


PHYADR 


;GET PHYSICAL ADDRESS INTO RO 


MOV 


RO. 


(R2) 


.-WRITE VALUE OF ADDRESS INTO ADDRESS 


MOV 


(R2)*. 


R1 


;6ET THE DATA FROM MEMORY UNDER TEST. 


CMP 


RO. 


R1 


.-COMPARE THE CHECK WORD WITH THE DATA READ. 


BEQ 


65S 




.•BRANCH OVER ERROR CALL IF GOOD DATA. 


JSR 


PC. 


SPRNT2 


.-SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC, 


SERROR 


ERROR (GO TYPE A MESSAGE) 


.WORD 


2 




.-ERROR TYPE CODE. 


ADD 


#2. 


RO 


;ADD #2 TO PHYSICAL ADDRESS 


BIT 


R5. 


R2 


.-CHECK FOR END OF A BLOCK. 


BNE 


2$ 




.•BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC. 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 1$. 



3J: 
4S: 



JSR 
JSR 
SUB 
MOV 



RA. 
PC. 
02. 

-(R2). 



INITDN 
PHYADR 
RO 
Rl 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
GET PHYSICAL ADDRESS INTO RO 
DEC DATA BY ? 
GET THE DATA FKOM MEMORY 



(ZQMCOO 0-1^<.^ MEMORY EXERCISER. 16k vER 
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717? 006274 0?0001 

(?) 006276 OOK05 

(3) 006500 004767 012046 661 
'4) 006304 004767 013540 

(4) 006510 000002 

(2) 006512 67$ 

7173 006512 050502 

(1) 006514 001364 

'1) 006516 004767 007562 



MACvll 50A(1052) lJ-mR-eO 13:10 PAGE S9-50 
WRITE VALUE OF HEMORY ADDRESS INTO MEMORY 



SEQ 0047 



CMP 
BEQ 

JSR 
JSR 
.yORD 

BIT 
BNE 

JSR 



RO- 
67i 

PC. 

PC. 

2 

PS. 

4$ 

PL. 



R1 

SPRNTO 
SERROR 



R2 

MMDOUN 



COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL If GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO tTAGI. 



004567 012216 
000000 

004467 006444 

004767 007430 
005100 

062700 000002 



004567 


012312 




JSft 


R5, 


SSCOPE 


;60 TO SCOPE ROUTINE. 


000000 






.WORD 


0 




;N0 mNlfWi BLOCK SIZE REQUIRED THIS TEST. 






« 


UPUARDS BYTE ADDRESSING. 




004467 


006102 




JSR 


R4. 


INITW 


.•INITIALIZE THE MEMORY ADDRESS POINTERS. 


00^767 


007524 


1$: 


JSR 


PC, 


PHYADR 


;6ET PHYSICAL ADDRESS INTO RO 


110022 




2$: 


M0V8 


RO. 


(R2)* 


.WRITE VALUE OF ADDRESS INTO ADDRESS 


005200 






INC 


RO 




.ADD ONE TO PHYSICAL ADDRESS 


030502 






BIT 


R5. 


R2 


.-CHECK FOR END OF A BLOCK. 


001374 






6NE 


2$ 




.•BRANCH IF MORE IN CURRENT BLOCK. 


004767 


006640 




JSR 


PC, 


MMUP 


.•FIND NEXT BLOCK AND LOOP TO 1S. 



3$: 
4S: 



CZQMCGO 0-124K MEMORY EXERCISER. 16K VER 
CZQMCG.P11 12-MAR-80 13:07 T2 

7175 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 

(2) 006322 TST2: 

(3) 006322 
(3) 006326 

7176 

7177 006330 

7178 006334 

7179 006340 

7180 006342 

7181 006344 
(1) 006346 

(1) 006350 
7182 
7183 
7184 

7185 006354 004467 006514 

7186 006360 004767 007500 
7137 006364 005300 

7188 006366 114201 

7189 006370 120001 

7190 006372 001405 

(2) 006374 004767 011752 

(3) 006400 004767 013244 
(3) 006404 000003 
(1) 006406 

7191 006406 030502 
(1) 006410 001365 

(1) 006412 004767 007266 
7192 
7193 

(3) 
(4> 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 

(2) 006416 

(3) 006416 
(3) 006422 

7194 

7195 006424 

7196 006430 

7197 006434 

7198 006436 

7199 006442 010042 

7200 006444 030502 



J 4 

MACYll 30A(1052) 12-MAR-80 13:10 PAGE 59-31 
WRITE VALUE OF MEMORY ADDRESS INTO MEMORv 



TEST 2 WRITE VALUE OF MEMORY ADDRESS INTO MEMORY 

RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 
R2 = VIRTUAL ADDRESS 
R3 = NOT USED 
R4 = NOT USED 

R5 = BLOCK BOUNDRY BIT MASK. 



>E0 0048 



CHECK THAT VALUE OF MEMORY 
DOWNWARDS BYTE ADDRESSING. 



ADDRESS WAS WRITTEN CORRECTLY 



64S: 



65$: 



JSR 


R4. 


INITDN . 


•INITIALIZE THE MEMORY ADDRESS POINTERS. 


JSR 


PC. 


PHYADR . 


•GET PHYSICAL ADDRESS INTO RO 


DEC 


RO 




•DEC DATA BY 1 


novB 


-(R2). 


Rl '. 


•GET THE DATA FROM MEMORY 


CMP8 


RO, 


Rl 


•CHECK THE DATA...LO BYTE ONLY VALID. 


BEO 


65$ 




•BRANCH OVER ERROR CALL IF GOOD DATA. 


JSR 


PC, 


SPRNTO , 


;SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC. 


$ERROR 


ERROR *•* (GO TYPE A MESSAGE) 


.WORD 


3 




•ERROR TYPE CODE. 


BIT 


R5. 


R2 


; CHECK FOR END Of A BLOCK. 


BNE 


4$ 




;8RANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC. 


MMDOWN 


;FIND NEXT BLOCK AND LOOP TO $TAG1 . 



TEST 3 WRITE TS COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 

RO = DATA WRITTEN INTO MEMORY (SHOULD GE) 
Rl = DATA READ FROM MEMORY (WAS) 
R2 = VIRTUAL ADDRESS 
R3 = NOT USED 
R4 = NOT USED 

R5 = BLOCK BOUNDRY BIT MASK. 



TST3: 



JSR R5. $SCOPE 
.WORD 0 
DOWNWARDS WORD ADDRESSING. 



1$: 
2$: 



JSR 
JSR 
COM 
ADD 
MOV 
BIT 



R4, 

PC. 

RO 

#2. 

RO. 

R5. 



INITDN 
PHYADR 

RO 

-(R2) 
R2 



GO TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
GET PHYSICAL ADDRESS INTO RO 
COMPLEMENT THE ADR 

♦2 TO DATA— ADR GOES DOWN SO COM GOES UP 
PUT DATA INTO MEMORY 
CHECK FOR END OF A BLOCK. 



CZQMCGO 



CZQMCG 


P11 


1 2-WAR-80 


13:07 


(1 ) 


006446 


001373 




(1) 


006450 


004767 


007230 


7201 








7202 








7203 








7204 


006454 


004467 


005756 


7205 


006460 


004767 


007400 


7206 


006464 


005100 




7207 


006466 






(1) 


006466 


012201 




(2) 


006470 


020001 




(3) 


006472 


001405 




(4) 


006474 


004767 


011676 


(5) 


006500 


004767 


013144 


(5) 


006504 


000002 




(3) 


006506 






7208 


006506 


162700 


000002 


7209 


006512 


030502 




(1 ) 


006514 


001364 




(1 ) 


006516 


004767 


006472 


7210 








7211 








(3) 








(4) 








(4) 








(4) 








(4) 








(4) 








(4) 








(Zj 








(2) 


006522 






(3) 


006522 


004567 


012112 


(3) 


006526 


000000 




7212 








7213 


006530 


004467 


005702 


7214 


006534 


004767 


007400 


7215 


006540 


110022 




7216 


006542 


030502 




(1 ) 


006544 


001375 




(1) 


006546 


004767 


006442 


7217 








7218 








7219 








7220 


006552 


004467 


005660 


722 \ 


006556 


004767 


007356 


7222 


006562 


112201 




7223 


006564 


020001 




(2) 


006566 


001405 




(3) 


006570 


004767 


011564 


(4) 


006574 


004767 


/\ 4 YAP A 

013050 


(4) 


006600 


000003 




id) 


UUo6U^ 






722t. 


006602 


030502 




(1) 


006604 


001366 




(1) 


006606 


004767 


006402 


72^5 









16K 



VER 
T3 



K 4 

MACrll 30A(1052) 12-WNR-80 13:10 PAGE 59-32 
WRITE 1'S COMPLEMENT VALUE OF ADDRESS INTO ADDRESS. 

BNE 2$ .-BRANCH IF MORE IN CURRENT BLOCK. 

JSR PC, MMDOyN ;FINO NEXT BLOCK AND LOOP TO 1$. 



SEQ 0049 



CHECK COMPLEMENT DATA WRITTEN DOyN 



• » 


UPWARDS WORD ADDRESSING. 




jSR 


R4. 


INITW 


3$: 


JSR 


PC. 


PHYADR 




COM 


RO 




4S: 










MOV 


(R2)*. 


R1 




CMP 


RO. 


R1 




BEQ 


65$ 




64$: 


JSR 


PC. 


SPRNT2 




JSR 


PC. 


$ERROR 




.WORD 


2 




65$: 










SUB 


*2. 


RO 




BIT 


R5. 


R2 




BNE 


4$ 






JSR 


PC. 


MMUP 



.•INITIALIZE THE MEMORY ADDRESS POINTERS. 
;GET PHYSICAL ADDRESS INTO RO 
.•COMPLEMENT IT 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR *•* (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 



COUNT DOWN WITH ADDRESS 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 3$. 



*TEST 4 WRITE BANK # INTO ALL ADDRESSES IN A 4K BANK 

• RO = DATA WRITTEN INTO WiMORY (SHOULD BE) 

• Rl = DATA READ FROM MEMORY (WAS) 

• R2 = VIRTUAL ADDRESS 

• R3 = NOT USED 
» R4 = NOT USED 

• R5 = BLOCK BOUNDRY BIT MASK. 

; *************************************************************** 

TST4: 

;60 TO SCOPE ROUTINE. 

;N0 MINIMlfl BLOCK SIZE REQUIRED THIS TEST, 



$SCOPE 



JSR R5. 

.WORD 0 
UPWARDS BYTE ADDRESSING. 

JSR R4. INITMM 

1$: JSR PC. BANKNO 

2$: M0V8 RO. (R2) + 

BIT R5. R2 

BNE 2S 

JSR PC. MMUP 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
GET THE BANK NLMBER INTO RO 
WRITE BANK # INTO ALL ADDRESStS 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



;* CHECK THAT DATA WRITTEN ABOVE CAN BE READ 
UPWARDS BYTE ADDRESSING. 



3$: 
4$: 



64$: 

65$: 



JSR 


R4. 


INITMM 


JSR 




BANKNO 


MOVB 


(R^)*. 


R1 


CMP 


RO. 


Rl 


BEO 


65$ 




.SR 


PC, 


SPRNT1 


JSR 




$ERROR 


.WORD 


f- 




BIT 


R5. 


R2 


BNE 


4$ 




JSR 


PC. 


MMUP 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
GET THE BAMC NlfGER INTO RO 
READ THE DATA OUT OF MEMORY 
COMPARE THE CHECK UORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 3$. 



_J 



CZQMCGO 0-12^K MEMORY EXERCISER, 
C7QMCG.P11 12-MAR-80 13:07 

7226 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 

(2) 006612 

(3) 006612 004567 012022 
(3) 006616 000000 

7227 

7228 006620 004467 006250 

7229 006624 004767 007310 

7230 006630 005100 

7231 006632 110042 

7232 006654 030502 
(1) 006636 001375 

(1) 006640 004767 007040 
7233 



7236 006644 004467 006224 

7237 006650 004767 007264 

7238 006654 005100 

7239 006656 114201 

7240 006660 020001 

(2) 006662 001405 

(3) 006664 004767 011462 

(4) 006670 004767 012754 
(4) 006674 000003 

(2) 006676 

7241 006676 030502 
(1) 006700 001366 

(1) 006702 004767 006776 
7242 

7243 
7244 
7245 
7246 
7247 
7248 

(3) 

(3) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(3) 

(2) 006706 

(3) 006706 CX567 011726 
(3) 006712 000000 

7249 006714 016700 172670 



L 4 

6K VER MACYll 30A(1052> 12-fV\R-80 

T5 WRITE 1'S COMPLEMENT Qf SANK 



13:10 



PAGE 59-53 



SEO 005C 



TEST 5 WRITE I'S COMPLEMENT OF BANK #. 

RO - DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 
R2 = VIRTLIAL ADDRESS 
R3 = NOT USED 
R4 = NOT USED 

R5 = BLOCK BOUNDRY BIT MASK. 



TST5: 

JSR 
.WORD 
; • DOWNWARDS 
JSR 

It: JSR 
COM 

2$: MOVB 
BIT 
BNE 
JSR 



R5. SSCOPE 

0 

BYTE ADDRESSING. 



;G0 TO SCOPE ROUTINE. 
;NG MINIMlfl BLOCK SIZE 



REQUIRED THIS TEST. 



R4. 

PC. 

RO 

RO. 

R5. 

2S 

PC. 



INITDN 
BANKNO 

-(R2) 
R2 

MMOOWN 



INITIALIZE THE MEMORY ADDRESS POINTERS. 

GET THE BANK NkTBER INTO RO 

rS COMPLEMENT OF BANK 0 

PUT I'S COM OF BANK # INTO MEMORY 

CHECK FOR END OF A BLOCK. 

BRANCH IF MORE IN CURRENT BLOCK. 

FIND NEXT BLOCK AND LOOP TO IS. 



CHECK THAT DATA WRITTEN CAN BE READ, 
DOWNWARDS BYTE ADDRESSING. 



3$: 
4S: 



64S: 



65$: 



JSR 
JSR 
COM 
MOVB 
CMP 
BEO 
JSR 
JSR 
.WORD 

BIT 
BNE 
JSR 



PC, 
RO 
-(R2), 
RO. 
65$ 
PC. 

?■ 

R5. 

4$ 

PC. 



INITDN 
BANKNO 

R1 
R1 

SPRNTO 
SERROR 



R2 

MMDOWN 



INITIALIZE THE MEMORY ADDRESS POINTERS. 

GET THE BANK # INTO RO 

SET rs COMPLEMENT OF BANK 0 

READ DATA OUT OF MEMORY 

COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO STAG1 . 



S8TTL SECTION 2: WORST CASE NOISE TESTS 

• *************************************************************** 

i THESE TESTS WRITE MEMORY WORST CASE NOISE TEST PATTERNS THROUGHOUT 
* MEMQRV AND CHECK THAT THEY CAN BE WRITTEN AND READ. 



; **** 

• «*♦» 

*TEST 
* 

* 
* 

• ««•« 

TST6: 



ft********************************************************** 
*********************************************************** 



= 0), 



6 WRITE A CONSTANT INTO MEMORY. 

;* THE CONSTANT IS USER SELECTABLE (DEFAULT 
RO = DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1 = DATA READ FROM MEMORY (WAS) 
R2 = VIRTUAL ADDRESS 
R3 = NOT USED 
R4 = NOT USED 

R5 = BLOCK BOUNDRY BIT MASK. 
**»*••**»***********•**»*»••*••»»»**••*•»*•••••••♦••••»•••• 



TST6A: 



JSR R5. SSCOPE 
.WORD 0 

MOV .CONST. RO 



GO TO SCOPE ROUTINE. 

NO MINIMLfl BLOCK SIZE REQUIRED THIS TEST. 
GET USER CONSTANT 



CZQMCGO MEMORY EXERCISER. 16K VER 

CZQMCG.PII 12-MAR-80 13:07 T6 



MACY11 30A(1052) 
WRITE A CONSTANT 



12-WAR-80 
INTO MEMORY. 



13:10 PAGE 59-34 



SEQ 005^ 



7250 
7251 
7252 
(1) 
(1) 
7253 
7257 
(3) 
(4) 
(3) 
(2) 
(3) 
(3) 
7258 
7259 
7260 
(1) 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 
7261 
(1) 
(1) 
7263 
7264 
7265 
7266 
7267 
7268 
7269 
7270 
7271 
7272 
7273 
7274 
7276 
7277 
(3) 
(3) 
(3) 
(2) 
(3) 
(3) 
7278 
7279 
7280 
7281 
7282 
7283 
7284 
(2) 
(3) 
(4> 



006720 
006724 
006726 
006730 
006732 



006736 
006736 
006742 
006744 
006750 
006754 
006754 
006756 
006760 
006762 
006766 
006772 
00677A 
006774 
006776 
007000 



007004 
007012 
007014 
007020 
007024 
007030 
007032 
007040 
007046 



007050 
007050 
007054 
007056 
007062 
007066 
007070 
007072 
007076 
007100 
007102 
007104 
007106 



004467 


005512 




JSR 


R4, 


INITMM 


010022 




1$: 


MOV 


RO. 


(R2)* 


030502 






BIT 


R5. 


R2 


001375 






BNE 


IS 




004767 


006256 




JSR 


PC. 


MMUP 



004567 
000000 
016700 
004467 

012201 
020001 
001405 
004767 
004767 
000004 

030502 
001366 
004767 



032777 
001416 
017746 
042716 
022726 
001007 
162767 
162767 
000722 



004567 
000000 
016704 
004767 
012400 
001420 
004467 
010012 
012201 
020001 
001405 
004767 



.•INITIALIZE THE MEMORY ADDRESS POINTERS. 
.•WRITE CONSTANT INTO MEMORY. 
.•CHECK FOR END OF A BLOCK. 
.-BRANCH IF MORE IN CURRENT BLOCK. 
.•FIND NEXT BLOCK AND LOOP TO 1$. 



011676 

172640 
005462 



011410 
012656 



006210 



000001 
000030 



011564 

172552 
010560 



005340 



011264 



•TEST 7 

* IMPORTANT: 



READ NEMORY AND COMPARE TO CONSTANT. 

THIS TEST SHOULD NOT BE RUN WITHOUT FIRST RUNNING TEST STN. 



TST7: 



IS: 



64S: 



65S: 



JSR 
.WORD 

nov 

JSR 

MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 



R5. 
0 

.CONST. 
R4. 

(R2)*. 

RO. 

65i 

PC. 

PC. 

4 



SSCOPE 
RO 

INITMM 

Rl 
R1 

SPRNT2 
SERROR 



;60 TO SCOPE ROUTINE. 

;N0 MINIMlfl BLOCK SIZE REQUIRED THIS TEST. 
;6£T USER CONSTANT 

.•INITIALIZE THE MEMORY ADDRESS POINTERS. 

;6ET THE DATA FROM MEMORY UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.-BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (60 TYPE A MESSAGE) 
.-ERROR TYPE CODE. 



000400 172126 

172120 
177740 
000006 



BIT R5. R2 ; CHECK FOR END OF A BLOCK. 

BNE IS :8RANCH IF MORE IN CURRENT BLOCK. 

JSR PC. MMUP .-FIND NEXT BLOCK AND LOOP TO IS. 
SPECIAL CHECK TO SEE IF TEST 6 IS SELECTED THRU THE SUR. 
ALLOWS THE OPERATOR TO SWITCH BACK AND FORTH BETWEEN TESTS 6 AND 7 
BY SIMPLY 'TOGGLING" SWOO WHEN SW01 , SW02. AND SW08 ARE SET. 



172042 
172040 



BIT 
BEQ 
MOV 
BIC 
CMP 
BNE 
SUB 
SUB 
BR 



asuR 



.•CHECK THAT LOOP ON TEST BIT SET 
.•BRANCH IF NOT LOOP ON TEST 
.'GET SWITCH REGISTER DATA. 
.•CLEAR NOW-TEST-NL«ER SWITCHS. 
.•CHECK IF TEST 6 IN SWITCHES. 
.•BRANCH IF NOT TEST 6 
.•RESET TEST HS^ 
#TST7-TST6.$LPADR .-RESET LOOP ADR 
TST6A ;G0 TO TEST 6 



fSW08, 

TST10 

aswR. -(SP) 

#1 77740. (SP) 
#6. (SP)* 
TSTIO 

#1. _ STSTffI 



:*TEST 10 WORSE CASE NOISE (PARITY) WORD TESTING 

;* CHECK MEMORY WITH A SERIES OF PATTERNS 



TSTIO: 



IS: 



2S: 



64S: 



JSR R5. SSCOPE ;G0 TO SCOPE ROUTINE. 

.WORD 0 ;N0 MINIMIS BLOCK SIZE REQUIRED THIS TEST. 

MOV .MPPAT. R4 .-INITIALIZE PATTERN TABLE POINTER 

JSR PC. CKPMER ; CHECK FOR NON-TRAP PARITY MEMORY ERRORS. 

MOV (R4)*. RO ;6ET THE DATA PATTERN. 

BEQ TSTll ;;8R IF END OF TABLE. 

JSR R4. \HUm .-INITIALIZE THE MEMORY ADDRESS POINTERS. 

MOV R0» (R2) .-PUT DATA PATTERN INTO MEMORY. 

MOV (R^)*. Rl .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO. Rl ; COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 65S .-BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 



CZQMCGO 0-1 MEMORY 
CZQMCG.P11 12-f1AR-80 

(5) 007112 0W767 

(5) 007116 000004 
(3) 007120 

7285 007120 030502 
(1) 007122 001365 
(1) 007124 004767 

7286 007130 000754 



EXERCISER. 16k VER 
13:07 no 

012532 

65$ 

006064 



N 4 

MACVll 30A(1052) 12-«Afi-80 13:10 PAGE 59-35 

WORSE CASE NOISE (PARITY) WORD TESTING SEO 005^ 

JSR PC, SERROR ERROR (GO TYPE A MESSAGE i 

.WORD 4 .ERROR TYPE CODE. 

BIT R5, R2 .-CHECK fOR END OF A BLOCK. 

BNE 2S .'BRANCH IF MORE IN CURRENT BLOCK. 

JSR PC. MMUP .-FIND NEXT BLOCK AND LOOP TO 2$. 

BR 1$ ;8R BACK TO DO NEXT PATTERN 



CZQMCGO 0-12<.lC MEMORY EXERCISER. 16K VER 
CZQMCG.Pn 12-«AR-80 'i3:07 TTI 



B 5 

MACY11 30A(1052) 12-mft-80 13:10 PAGE 59-36 
ROTATE A 'V BIT THROUGH A FIELD Of ONES. 



SEQ 0055 



7288 

(3) 
(3) 
(2) 
(3) 
(3) 
7289 
7290 
7291 
7292 
7293 
729« 
7295 
7296 
(2) 
(3) 
(4) 
(A) 
(2) 
7297 
(1) 
(1) 
7298 
7299 
(3) 
(3) 
(2) 
(3) 
(3) 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
(2) 
(3) 
(4) 
(4) 
(2) 
7308 
(1) 
(1) 



007132 
007132 
007136 
007140 
007144 
007150 
007154 
007156 
007162 
007166 
007170 
007172 
007174 
007200 
007204 
007206 
007206 
007210 
007212 



007216 
007216 
007222 
007224 
007226 
007232 
007236 
007240 
007244 
007250 
007252 
007254 
007256 
007262 
007266 
007270 
007270 
007272 
007271, 



004567 
000000 
012700 
004767 
004467 
000241 
004767 
016201 
103402 
020001 
001405 
004767 
004767 
000005 

030502 
001361 
004767 



004567 
000000 
005000 
004767 
004467 
000261 
004767 
016201 
103002 
020001 
001405 
004767 
004767 
000005 

030502 
001361 
004767 



011502 

177777 
007030 
005262 

007036 
177776 



011176 
012444 



005776 



011416 



006746 
005200 

006754 
177776 



011114 
012362 



005714 



•TEST 11 



ROTATE A "O'^BIT THROUGH A FIELD Of ONES. 



TST11 



1$: 



63$: 
64S: 



JSR 

.WORD 

MOV 

JSR 
JSR 
CLC 
jSR 
MOV 
BCS 
CMP 
6E0 
JSR 
JSR 
.WORD 

BIT 
BNE 
JSR 



R5. 

0 

#-1. 

PC. 

R4. 

PC. 

-2(R2) 

63$ 

RO. 

64$ 

PC. 

PC. 

5 

R5. 

1$ 

PC. 



$SCOPE 

RO 

SETCON 
INITW 

ROTATE 
R1 

R1 

SPRNT2 
$ERROR 



R2 

•1MUP 



GO TO blOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
SET CHECK WORD 

PUT THE CONTENTS OF RO IN ALL MEMORY. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
CLEAR CARRY BIT IN PSW 

GET RESULT 

BRANCH IF 'C BIT UAS SET 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL Ih GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



•TEST 12 



ROTATE A 'T* BIT THROUGH A FIELD OF ZEROS 



TST12: 



It: 



63$: 



64$: 



JSR 

.WORD 

CLR 

JSR 

JSR 

SEC 

JSR 

MOV 

BCC 

CMP 

BEQ 

JSR 

JSR 

.WORD 

BIT 
BNE 

JSR 



R5. 

0 

RO 

PC. 

R4. 



$SCOPE 



SETCON 
INITMM 



PC. ROTATE 
-2(R2). R1 



63$ 
RO. 
64$ 
PC. 



R1 

SPRNT2 
SERROR 



R2 



R5. 
IS 

PC. MMUP 



GO TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
SET CHECK WORD 

PUT THE CONTENTS OF RO IN ALL MEMORY 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 'C BIT IN PSW 
GO ROTATE '^' BIT 
GET RESULT 

BRANCH IF 'C IS CLEAR 

COMPARE THE CHECK WORD WITH THE DATA 9FAD, 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR ♦•* (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR EhK) OF A BLOC)<. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCGO 


0-12AK MEMORV 




»1l 12-MAR-80 


711 A 






tX\ 

( 5J 






1 1\ 
( 5) 






\d) 


007500 




1 1\ 
( 5) 


007500 


004567 


it\ 
( 5; 


00730A 


000777 


\ 5) 






k5) 


007506 


000167 


( 5) 








007512 


005000 


771 O 


0075U 


012705 


771 7 


007520 


004467 


771 / 
f DIH 


007524 


004767 


771 ^ 


007550 


050502 


/ 1 \ 


007552 


001574 




007554 


004767 


771/t. 






771 7 






771 fi 






771 O 






f 3c\J 


007340 


005000 


7751 

fJCI 


007342 


004467 


T755 
IJCC 


007346 


012704 


7757 


007352 




( ^ ^ 

K 1 1 


007552 


012201 


<'>\ 

\C) 


007554 


020001 


(X', 


007356 


001405 


f L\ 
\Hl 


007560 


004767 


OP 


007564 


004767 


OP 


007370 


000007 


\ii 


007372 




7X'y/ 
f 5c** 


007372 


012201 




007574 


020001 


/x\ 


007576 


001405 


1 1 \ 


007400 


004767 


1 ^\ 
( 5 J 


007404 


004767 




007410 


000007 


tx\ 


007412 




775^ 


007412 


012201 


KC) 


007414 


020001 


/X\ 


007416 


001405 


(*»P 


007420 


004767 




007424 


004767 




007430 


000007 


IX\ 


007432 




77 


007432 


012201 


/0\ 

\c) 


007454 


020001 




007456 


001405 




007440 


004767 




007444 


004767 




007450 


000007 


IX\ 


007452 




7X07 


007452 


005100 


f jco 


007454 


005304 


7329 


007456 


001535 


7330 


007460 


005100 



T13 



C 5 

HACVll 50A(1052) l2-flAR-80 
5 XOR 9 TEST PATTERN. 



15:10 PAGE 59-57 



SEQ 005^ 



01 1 554 
000512 



M7777 
005112 
006756 



005654 



005070 
000100 



011012 
012260 



010772 
012240 



010752 
012220 



010752 
012200 



•TEST 15 

tsfl5: 



5 XOR 9 TEST PATTERN. 



,5X9: 



1$: 



JSR 
.WORD 

JIV 

CLR 
MOV 
JSR 
JSR 
BIT 
BNE 
JSR 



R5. 

77^ 

TSTU 

RO 

#-1. 

R-i, 

PC. 

R5. 

1$ 

PC. 



SSCOPE 



R5 

INITMM 
W5X9 

R2 

MMUP 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 256. WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
SET UP TEST DATA 
SET COM DATA REG 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE 256. WORD BLOCK WITH 5 XOR 9 PAT. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN Cl^RENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CritCK 5 XOR 9 TEST PATTERN WRITTEN ABOVE 
*************************************************************** 



11$: 
12$: 



64$: 
65$: 

66$: 
67$: 

66$: 
69$: 

70$: 
71$: 



CLR 


RO 




;SET CHECK WORD 






JSR 


R4. 


INITMM 


.•INITIALIZE THE MEMORY ADDRESS POINTERS. 


MOV 


#64. . 


R4 


;SET 256. WORD COtWTER 




MOV 


(R2)*. 


R1 


;GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 




R1 


.•COMPARE THE CHECK 


WORD WITH THE DATA 


READ. 


BEQ 


65$ 




.-BRANCH OVER ERROR 


CALL IF GOOD DATA. 




JSR 


PC. 


SPRNT2 


.-SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC. 


$ERROR 


ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




.•ERROR TYPE CODE. 






MOV 


(R2)*. 


R1 


.-GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO. 


R1 


.•COMPARE THE CHECK 


WORD WITH THE DATA 


READ. 


BEO 


67$ 




.•BRANCH OVER ERROR 


CALL IF GOCM) DATA. 




JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC. 


$ERROR 


ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




.■ERROR TYPE CODE. 






MOV 


(R2)*. 


R1 


.•GET THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO. 


R1 


.•COMPARE THE CHECK 


WORD WITH THE DATA 


READ. 


BEO 


69$ 




.•BRANCH OVER ERROR 


CALL IF GOOD DATA. 




JSR 


PC. 


SPRNT2 


.-SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC. 


$ERROR 


ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




.•ERROR TYPE CODE. 






MOV 


(R2)*, 


Rl 


;G£T THE DATA FROM 


MEMORY UNDER TEST. 




CMP 


RO. 


Rl 


.•COMPARE THE CHECK 


WORD WITH THE DATA 


READ. 


BEO 


71$ 




.•BRANCH OVER ERROR 


CALL IF GOOD DATA. 




JSR 


PC. 


SPRNT2 


;SET UP VALUES FOR 


ERROR PRINTING. 




JSR 


PC. 


$ERROR 


;»** ERROR *** (GO 


TYPE A MESSAGE) 




.WORD 


7 




.•ERROR TYPE CODE. 






COM 


RO 




.•COMPLEMENT CHECK WORD 




DEC 


R4 




.•DECREMENT 256. WORD COUNTER 




BNE 


12$ 










COM 


RO 




.•COMPLEMENT CHECK WORD 





D 5 
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7331 


007462 


030502 






81 T 


R5, 
11$ 


R2 


CHECK FOR END OF A BLOCK. 




(1) 


007464 


001350 






BNE 




BRANCH IF MORE IN CURRENT BLCC<. 




(1) 
7332 
7333 
7334 


007466 


004767 


005522 




JSR 


PC, 


HMUP 


FIND NEXT BLOCK AND LOOP TO 11$. 










• • 

• * 


CHECK. COM. 


CHECK, 


COM. CHECK 3 XOR 9 PATTERN WRITTEN ABOVE. 




7335 




















7336 


007472 


005000 






CLR 


RO 








7337 


007474 


004467 


004736 




JSR 


R4. 


INITMM ; 


INITIALIZE THE MEMORY ADDRESS POINTERS. 


7338 


007500 


012704 


000100 


21 S: 


MOV 


#64. , 


R4 ; 


SET 256. WORD COUNTER 




7339 


007504 


012703 


000004 


22S: 


MOV 


#4, 


R3 


SET 4 WORD COUNTER 




7340 


007510 






23$: 












(1 ) 


007510 


012201 






MOV 


(R2)*. 


R1 


GET THE DATA FROM MEMORY UNDER TEST. 




(2) 


007512 


020001 






CMP 


RO, 


R1 


COMPARE THE CHECK WORD WITH THE DATA 


READ 


(5) 


007514 


001405 






BEQ 


73$ 




BRANCH OVER ERROR CALL IF GOOD DATA. 




(4) 


007516 


004767 


010654 


72$: 


JSR 


PC. 


SPRNT2 \ 


SET UP VALUES FOR ERROR PRINTING. 




(5) 


007522 


004767 


012122 




JSR 


PC, 


$ERROR , 


ERROR *** (60 TYPE A MESSAGE) 




(5) 


007526 


^^^^^^ 

000007 






.WORD 


7 




F nfNyv> ▼ y* y%fs r 

ERROR TYPE CODE. 




(3) 


007530 






73$: 












7341 


007530 


005100 






COM 


RO 




COMPLEMENT CHECK WORD 




7342 


007532 


005142 






COM 


-(R2) 




COMPLEMENT TEST DATA 




7343 


007534 


012201 






MOV 


(R2) 


R1 '. 


"GET THE DATA FROM MEMORY UNDER TEST. 




(2) 


007536 


/\ ^ AAA 4 

020001 






CMP 




R1 


'Ctrf-'ARt THE CHECK WjHv WITH THE DATA 


HtAD 


(3) 


007540 


001405 






BEQ 


75$ 




•BRANCH OVER ERROR CALL IF GOOD DATA. 




(4) 


007542 


004767 


010630 


^y * 

74$: 


JSR 


PC, 


SPRNT2 


. T 1 m uAi iicc c rtf> c:ckO/%n 00 1 ait t ai^ 

;5cT UP VALUES FOR ERROR PRINTING. 




(5) 


007546 


004767 


012076 




JSR 


PC. 


$ERROR 


ERROR *** (GO TYPE A McSSAGc) 




(5) 


007552 


000007 






.WORD 


7 

7 




'ERROR TYPE CODE. 




(3) 


007554 






75$: 












7344 


007554 


005100 






COM 


RO 




jCCflPLcMENT CHECK WORD 




7345 


007556 


005142 






COM 


-(R2) 




. r' nMf^l PMC AlT TPCT ftATA 

; COFfLEMcNT TEST DATA 




7346 


007560 


012201 






MOV 


(R2)*, 


R1 


. T Tl iP IN A T A P UPUnAW 1 MITVP n t P C T 

;GET THE DATA FROM MEMORY UNDER TEST. 




(2) 


007562 


020001 






y*Mn 

CMP 


RO, 


R1 


• rriMDAOP TUP rupr^ umn uttu tmp hata 


DP AH 


(3) 


007564 


001405 






ftp y% 

BEQ 


77* 




.-BRANCH OVER ERROR CALL IF GOOD DATA. 




(4) 


007566 


004767 


010604 


76$: 


JSR 


PC, 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 




(5) 


007572 


004767 


012052 




JSR 




$ERROR 


ERROR ♦** (GO TYPE A MESSAGE) 




(5) 


007576 


000007 






.WORD 


7 




; ERROR TYPE CODE. 




(3) 


007600 






77$: 












7347 


007600 


005303 






DEC 


R3 




.•DECREMENT 4 WORD COUNTER 




7348 


007602 


001342 






BNE 


23$ 




;8R IF NOT DONE. 




7349 


007604 


005100 






COM 


RO 




.•COMPLEMENT CHECK WORD 
















Kh 




.-DECREMENT 256. WORD COUNTER 




7351 


007610 


001335 






BNE 


22$ 




;8R IF NOT DONE. 




7352 


007612 


005100 






COM 


RO 




.-COMPLEMENT CHECK WORD 




7353 


007614 


030502 






BIT 


R5. 


R2 


.-CHECK FOR END OF A BLOCK. 




(1) 


007616 


001330 






BNE 


21$ 




.-BRANCH IF MORE IN CURRENT BLOCK. 




(1) 


007620 


004767 


005370 




JSR 


PC, 


MMUP 


.-FIND NEXT BLOCK AND LOOP TO 21$. 
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E 5 
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9 TEST PATTERN 
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SEO 005 



7355 
(3) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
7356 
7557 
7358 
7359 
7360 
(1) 
(1) 
7361 
7362 
7363 
736A 



007624 






00762A 


004567 


onoio 


007630 


000777 




007632 


000167 


000316 


007636 


012700 


\77777 


007642 


005003 




007644 


004467 


004566 


007650 


004767 


006412 


007654 


030502 




007656 


001374 




007660 


004767 


005330 



•TEST 14 

TSTU: 



COMPLEMENT 3 XOR 9 TEST PATTERN 



IS: 



JSR 
.WORD 


R5. 

77^ 


SSCOPE 


JMP 


TST15 




MOV 

CLR 
JSR 
JSR 
BIT 
BNE 
JSR 


R3 

R-i. 

PC. 

R5. 

1$ 

PC. 


RO 

INITMM 

U3X9 

R2 

MMUP 



GO TO SCOPE ROUTINE. 

MINIMlfl BLOCK SIZE OF 256. WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
SET UP TEST DATA 
SET COM DATA REG 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



• CHECK COMPLEMENTED 3 XOR 9 TEST PATTERN WRITTEN ABOVE. 



7365 








• • 








7366 


007664 


012700 


1 77777 




MOV 




RO 


7367 


007670 


004467 


004542 




JSR 


R4. 


INITMM 


7368 


007674 


012704 


000100 


111: 


MOV 


#64. . 


R4 


7369 


007700 






12$; 








(1 ) 


007700 


012201 






MOV 


(R2)*. 


R1 


(2) 


007702 


020001 






CMP 


RO. 


R1 


(3) 


007704 


001405 






BEQ 


65$ 




(4) 


007706 


004767 


010464 
011732 


64$: 


JSR 


PC. 


SPRNT2 


(5) 


007712 


004767 




JSR 


PC, 


iERROR 


(5) 


007716 


00000 






• WORD 


f 




(3) 


O077ZQ 






65$: 








7370 


007720 


012201 






MOV 


(R2)*. 


R1 


(2) 


Q07722 


020001 






CMP 


RO. 


R1 


(3) 


007724 


001405 






BEG 


67$ 




(4> 


007726 


004767 


010444 


66$: 


JSR 


PC. 


SPRNT2 


(5) 


007732 


004767 


011712 




JSR 


PC, 


$ERROR 


(5) 


007736 


000007 






.WORD 


7 




(3) 


007740 






67$: 








7371 


007740 


012201 






MOV 


(R2)*. 


R1 


(2) 


007742 


020001 






CMP 


''Si 


R1 


(3) 


007744 


001405 






BEQ 


69i 




(4) 


007746 


004767 


010424 


68$: 


JSR 


PC. 


SPRNT2 


(5) 


007752 


004767 


011672 




JSR 




$ERROR 


(5) 


0077S6 


000007 






.WORD 






(3) 


007760 






69$- 








7372 


007760 


012201 






MOV 


(R2)*. 


R1 


(2) 


007762 


020001 






CMP 


RO. 


R1 


(3) 


007764 


001405 






BEQ 


71$ 




(4) 


007766 


004767 


010404 


70$: 


JSR 


PC. 


SPRNT2 


(5) 


007772 


004767 


011652 




JSR 


PC. 


tERROR 


(5) 


007776 


000007 






.WORD 


7 




(3) 


010000 






71$: 








7373 


010000 


005100 






COM 


RO 




7374 


010002 


005304 






DEC 


R4 




7375 


010004 


001335 






BNE 


12$ 





;SET CHECK WORD 

.-INITIALIZE THE MEMORY ADDRESS MDINTERS. 
.-SET 256. WORD COtWTER 

GET T>« DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
.-SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
.-ERROR TYPE CODE. 

;GET THE DATA FROM MEMORY IJTJDER TEST. 
; COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
.-SET UP VALUES FOR ERROR PRINTING. 

ERROR »*• (GO TYPE A MESSAGE) 
.-ERROR TYPE CODE. 

.•COMPLEMENT CHECK WORD 
.•DECREMENT 256. WORD COUNTER 
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7376 


010006 


005100 






COM 


RO 




7377 


010010 


030502 






D T T 

Bi 1 


iii 


(1) 


010012 


001550 






BNE 




(1) 


010014 


004767 


005174 




JSR 


PC. 


MMUP 


7378 
















7379 
















7380 
7381 








• • 


CHECK. COM. 


CHECK. 


COM. CHt 














RO 


7582 


010020 


012700 


1 7???7 




MOV 


#-1. 


7583 


010024 


004467 


004406 




JSR 


R4. 


INITMM 


7584 


010030 


012704 


000100 


21$: 


MOV 


#64. . 


R4 


75&5 


010054 


012705 


000004 


22$: 


MOV 


*4. 


R5 


7586 


010040 






25$: 








(1) 


010040 


012201 






MOV 


(R2)*. 


R1 


(2) 


010042 


020001 






CMP 


RO. 


R1 


(5) 


010044 


001405 






BEO 


73$ 




(A) 


010046 


004767 


010524 


72$: 


JSR 


PC. 


SPRNT2 


(5) 


010052 


004767 


011572 




JSR 


PC. 


$ERROR 


(5) 


010056 


000007 






.WORD 


7 




(5) 


010060 






75$: 








7587 


010060 


005100 






COM 


RO 




7588 


010062 


005142 






COM 


-(R2) 




7589 


010064 


012201 






MOV 


(R2)*. 


R1 


(2) 


010066 


020001 






CMP 


RO. 


R1 


(3) 


010070 


001405 






BEO 


75$ 




(4) 


010072 


004767 


010500 


74$. 


JSR 


PC. 
PC, 


SPRNT2 


(5) 


010076 


004767 


011546 




JSR 


$ERROR 


(5) 


010102 


000007 






.yORD 


7 




(3) 


010104 






75$. 








7390 


010104 


005100 






COM 


RO 




7391 


010106 


005142 






COM 


-(R2) 




7392 


010110 


012201 






MOV 


(R2)*. 


R1 


(2) 


010112 


020001 






CMP 


RO. 


R1 


(3) 


010114 


001405 






BEO 


77$ 




(4) 


010116 


004767 


010254 


76$ 


JSR 


PC. 


SPRNT2 


(5) 


010122 


004767 


011522 




JSR 


PC. 


$ERROR 


(5) 


010126 


000007 






.WORD 


f 




(3) 


010130 






77$ 








7395 


010150 


005503 






DEC 


R5 




7394 


010152 


001542 






BNE 


25$ 




7395 


010154 


005100 






COM 


RO 




7596 


010136 


005304 






DEC 


R4 




7397 


010140 


001335 






at^ 


22$ 




7598 


010142 


005100 






COM 


RO 




7599 


010144 


050502 






BIT 


R5. 


R2 


(1) 


010146 


001350 






BNE 


21$ 




(1 ) 


010150 


004767 


005040 




JSR 


PC. 


MMUP 



COMPLEMENT CHECK WORD 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 11$. 



5 XOR 9 PATTERN. 



SET UP CHECK WORD 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COIMTER 
SET 4 WORD COIMTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE C^€CK WORD WITH THE DATA READ 
BRANCH OVER ERROR CALL if GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

DECREMENT 4 WORD COlWTER 
BR IF NOT DONE. 
COMPLEMENT CHECK WORD 
DECREMENT 256. WORD COUNTER 
BR IF NOT DONE. 
COMPLEMENT CHECK WORD 
CHECK FOR EW OF A BLOCK. 
BRANCH ir MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP ^0 21$. 



CZQMCGO 0-124IC ME^IOftY EXERCISER. 16iC vER 
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MODIFIED 3 XOR 9 PATTERN FOR PARI'''' MEMORY 



SEO 0058 



010154 






010154 


004567 


010460 


010160 


000777 




010162 


000167 


000610 


010166 


012700 


000401 


0101 72 


012703 


\77777 


010176 


004467 


0^211* 


010202 


004767 


006060 


010206 


030502 




010210 


001374 




010212 


004767 


00^776 



7401 

(3) 

(3) 

(2) 

(3) 

(3) 

(3) 

(3) 

(3) 
7402 
7403 
7404 
7405 
7406 

(1) 

(1) 
7407 
7408 
7409 
7410 

7411 010216 012700 000401 

7412 010222 012703 ^77777 

7413 010226 004467 004204 

7414 010232 012704 000100 

7415 010236 

(1) 010236 012201 

(2) 010240 020001 

(3) 010242 001405 

(4) 010244 004767 010126 

(5) 010250 004767 011374 
(5) 010254 000007 

(3) 010256 

7416 010256 012201 

(2) 010260 020001 

(3) 010262 001405 

(4) 010264 004767 010106 

(5) 010270 004767 011354 
(5) 010274 000007 

(3) 010276 

7417 010276 012201 

(2) 010300 020001 

(3) 010302 001405 

(4) 010304 004767 010066 

(5) 010310 004767 011334 
(5) 010314 000007 

(3) 010316 

7418 010316 012201 

(2) 010320 020001 

(3) 010322 001405 

(4) 010324 004767 010046 
(5 ) 010330 004767 0113U 

(5) 010334 000007 
(3) 010336 

7419 010336 010046 
(1) 010340 010300 
(1) 010342 012603 



•TEST 15 



MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 



ST15: 



1$: 



JSR 
.WORD 

JMP 

MOV 
MOV 
JSR 
JSR 
BIT 
BNE 
JSR 



R5. 
77> 

TST16 

*401, 
*-l. 

R-i. 

PC. 

R5. 

1$ 

PC. 



JSCOPE 



RO 
R3 

INITMM 

W3X9 

R2 

MMUP 



GO TO SCOPE ROUTINE. 

MINIMlfl BLOCK SIZE OF 256. WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
SET UP PARITY "ALL ZEROS" PATTERN 
SET COM DATA REG 

INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO IS. 



• CritCK PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 



RESET PARITY "ALL ZEROS" PATTERN. 
RESET PARITY ALL ONES PATTERN. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR **• (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

SAVE RO 

PUT R3 INTO RO 

PUT SAVED RO INTO R3 



11$: 
12$: 



64$: 
65$: 

66$: 
67$: 

68$: 
69$: 

70$: 
71$: 



MOV 


#401. 


RO 


MOV 


*-1. 


R3 


JSR 


M. 


INITMM 


MOV 


«64.. 


R4 


MOV 


(R2)*, 


Rl 


CMP 


RO 


Rl 


BEQ 


65$ 




JSR 


PC. 


SPRNT2 


JSR 


PC, 


$ERROR 


.WORD 


7 




MOV 


(R2)*. 


Rl 


CMP 


RO. 


Rl 


BEG 


67i 




JSR 


PC. 


SPRNr2 


JSR 


PC. 


$ERROR 


.WORD 


7 




MOV 


(R2)*. 


Rl 


CMP 


RO. 


Rl 


6E0 


69i 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


7 




MOV 


(R2)*. 


Rl 


CMP 


RO. 


Rl 


BEQ 


71$ 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


7 




MOV 


RO. 


-(SP) 


MOV 


R3. 


RO 


MOV 


(SP)». 


R3 



CZQMCG.Pn i2-«AR-80 


13:07 


7420 


010544 


005304 




7421 


010346 


001333 




7422 


010350 


010046 




(1) 


010552 


010300 




(1) 


010354 


012603 




7423 


010356 


030502 




(1) 


010360 


001 324 




(1) 


010362 


004767 


004626 










7425 








7^26 








7U27 








7(,2B 


010366 


012700 


000401 


7429 


010372 


012703 


^77777 


7430 


010376 


004467 


004034 


7431 


010402 


012704 


000100 


7C,12 


010406 






(1) 


010406 


012201 




(2) 


010410 


020001 




(3) 


010412 


001405 




(4) 


010414 


004767 


007756 


(5) 


010420 


004767 


011224 


(5) 


010424 


000007 




(3) 


010426 






7433 


010426 


005100 




7434 


010430 


005142 




7435 


010432 


012201 




(2) 


010434 


020001 




(3) 


010436 


001405 




(4) 


010440 


004767 


007752 


(5) 


010444 


004767 


011200 


(5) 


010450 


000007 




(3) 


010452 






7436 


010452 


005100 




7437 


010454 


005142 




7438 


010456 


012201 




(2) 


010460 


020001 




(3) 


010462 


001405 




(4) 


010464 


004767 


007706 


(5) 


010470 


004767 


011154 


(5) 


010474 


000007 




(3) 


010476 






7439 


010476 


012201 




(2) 


010500 


020001 




(3) 


010502 


001405 




(4) 


010504 


004767 


007666 


(5) 


010510 


004767 


01 11 34 


(5) 


010514 


000007 




(3) 


010516 






7440 


010516 


005100 




7441 


010520 


005142 




7442 


010522 


012201 




(2) 


010524 


020001 




(3) 


010526 


001405 




(4) 


010530 


004767 


007642 


(5) 


010534 


004767 


011110 



T15 
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nOOIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 



SEQ 00' 



DEC 


R4 




COLMT 256. WORDS 


BNE 


12$ 




BRANCH IF MORE 


nov 


RO. 


-(SP) 


•SAVE RO 


MOV 


R3. 


RO 


•PUT R3 INTO RO 


MOV 


(SP)*, 


R3 


•PUT SAVED RO INTO R3 


BIT 


R5. 


R2 


•CHECK FOR END OF A BLOCK. 


BNE 


11$ 




•BRANCH IF MORE IN CURRENT BLOCK. 


JSR 


PC. 


HHUP 


;FIND NEXT BLOCK AND LOOP TO 11$. 



« « 



CHECK. COM, CHECK, COM, CHECK PARITY 3 XOR 9 PATTERN. 



21$: 
22$: 



72$: 
73$: 

74S: 
75$: 

76$: 
77$: 

78$: 
79$: 

80$: 



MOV 
MOV 
JSR 
MOV 

MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 

COM 
COM 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

COM 
COM 
MOV 
CMP 
BEO 
JSR 
JSR 
.WORD 

MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

COM 
COM 
MOV 
CMP 
BEO 
JSR 
JSR 



#401 . RO 
*-1. R3 
R4, INITMM 
#64.. R4 



(R2)*. R1 
RO, R1 
73$ 
PC. 
PC, 
7 



RO 

-(R2) 

(R2)*. 

RO. 

77$ 

PC, 

(R2)*. 

RO. 

79i 

PC. 

PC. 

7 

RO 

-(R2) 

(R2)*. 

RO. 

81 i 

PC. 

PC. 



SPRNT2 
$ERROR 



RO 

-(R2) 

(R2)*. R1 
RO. 
75$ 

PC. 
PC, 
7 



R1 

SPRNT2 
$ERROR 



R1 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



SET UP PARITY "ALL ZEROS" PATTERN. 
SET UP ALL ONES PATTERN. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

;GET THE DATA FROM MEMORY UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
.-SET UP VALUES FOR ERROR PRINTING. 

ERROR *•* (GO TYPE A MESSAGE) 
.•ERROR TYPE CODE. 



COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*•* ERROR •** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 
RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *•* (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 
COMPLEMENT TEST DATA 
GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
ERROR (GO TYPE A MESSAGE) 



CZQMCGO 



O-ia^K MEIiORY EXERCISER. 16K VER 

:07 T15 





P11 12-nAR-80 




0105A0 


000007 




010542 




7LLX 


010542 


005100 


7LLL 


010544 


005142 


7LL^ 


010546 


012201 


It ^ 


010550 


020001 


' j) 


010552 


001405 


/ / \ 
) 


010554 


004767 




010560 


004767 


V J y 


010564 


000007 


/ X^t 


010566 




7/.LA 


010566 


012201 


\C.I 


010570 


020001 




010572 


001405 


( L\ 


010574 


004767 


t ^ 


010600 


004767 


\j) 


010604 


000007 


(X'\ 


010606 




7LL7 


010606 


005100 


7LLfi 


010610 


005142 


7LLQ 


010612 


012201 




010614 


020001 




010616 


001405 


(L ^ 


010620 


004767 




010624 


004767 


KJ J 


010630 


000007 




010632 






010632 


005100 




010634 


005142 


fHJC 


010636 


012201 


cys 


010640 


020001 


K JJ 


010642 


001405 


(L'S 


010644 


004767 


\j) 


010650 


004767 




010654 


000007 


ex's 


010656 






0106S6 


012201 


\Cf 


010660 


020001 


\j) 


010662 


001405 


(L'i 


010664 


004767 




010670 


004767 


\jl 


010674 


000007 


(X^ 


010676 




7L'\L 
f 


010676 


005100 


f H*J 


010700 


005142 


7L^/< 


010702 


012201 


\C' 


010704 


020001 


(X\ 


010706 


001405 


(L 'S 


010710 


004767 


\ J/ 


010714 


004767 




010720 


000007 


(5) 


010722 






010722 


005100 


7A58 


010724 


005142 


7^59 


010726 


012201 


(2) 


010730 


020001 



0C7616 
011064 



007576 
011044 



007552 
011020 



007526 
010774 



007506 
010754 



007462 
010730 



82$: 
83S: 

84$: 
85$: 

86$: 
87$: 

88$: 
89$: 

90$: 

91$: 

92$: 
93$: 
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MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 

.WORD 7 .-ERROR TYPE CODE. 

COM RO .-COMPLEMENT CHECK WORD 

COM -(R2) .RESTORE DATA 

MOV (R2)*. R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO. R1 .-COMPARE THE CHECK WORD WITH THE DATA READ, 

BEQ 83$ .-BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

JSR PC, $ERROR ERROR (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

MOV (R2)*, R1 .-GET THE DATA FROM MEMORY UTJDER TEST. 

CMP RO, R1 .-COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 85$ .-BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

JSR PC. $ERROR ERROR *•* (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

COM RO .-COMPLEMENT CHECK WORD 

COM -(R2) .-COMPLEMENT TEST DATA 

MOV (R2)*. R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO- R1 .-COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 87$ .-BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .SET UP VALUES FOR ERROR PRINTING. 

JS« PC. $ERROR ;•** ERROR (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

COM RO .-COMPLEMENT CHECK WORD 

COM -(R2) .-RESTORE DATA 

MOV (R2)*. R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO, R1 .COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 89$ .BRANCH OVcrt ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

JSR PC, $ERROR ERROR **• (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

MOV (R2)*. R1 ;6ET THE DATA FROM MEMORY UNDER TEST. 

CMP RO- R1 .-COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 91$ .-BRANCH OVER ERROR CALL IF GOOD DATA. 

JSR PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

JSR PC. $ERROR ERROR (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

COM RO .-COMPLEMENT CHECK WORD 

COM -(R2) .-COMPLEMENT TEST DATA 

MOV (R2)*. R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO, R1 .-COMPARE THE CHECK WORD WITH THE DATA READ. 

BEQ 93$ ,-BRANCH OVER ERROR CAL- IF GOOD DATA. 

JSR PC, SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

JSR PC. $ERROR ERROR •** (GO TYPE A MESSAGE) 

.WORD 7 .-ERROR TYPE CODE. 

COM RO .-COMPLEMENT CHECK WORD 

COM -(R2) .-RESTORE DATA 

MOV (R2)*, R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

CMP RO. R1 .-COMPARE THE CHECK WORD WITH THE DATA READ, 



SEQ 006( 
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MODIFIED 3 XOR 9 PATTERN FOR PARITY MEMORY 



SEQ 006' 



(3) 


010732 


AAI / AC 

001405 






QC A 


"yj» 


CDDkiT 0 


(*•) 


010734 


AA> 7 

004767 








PC , 


(5) 


010740 


AA> ^ 

004767 


A1 A7Ay 

010704 




1 CD 


or 
PC, 


•COOAO 

>t RROR 


(5) 


010744 


000007 






1 IflDfX 

• WUKP 


7 

f 




(5) 


010746 














7460 


01 0746 


A1 AAy ^ 

01CX>46 






nov 


on 
RU, 




( 1 ) 


A'« A^CA 

010750 


A1 AYAA 

010300 






MOV 




on 


( 1 ) 


010752 


Ai 'i^t\t 

01 ^603 






rlUV 


^ CO ) A 


Ki 


7461 


A1 A*7C / 

010754 


AAC TAy 

005304 












7/. A 5 


U lUf JO 


Uv 1 C 1 J 








??1 
cc » 




7463 


010760 


010046 






MOV 


RO. 


-(SP) 


(1) 


010762 


010300 






MOV 


R3, 


RO 


(1) 


010764 


012603 






MOV 


(SP)*, 


R3 


7464 


010766 


030502 






BIT 


R5. 


R2 


(1) 


010770 


001204 






BNE 


21$ 




(1) 


010772 


004767 


004216 




JSR 


PC. 


MMUP 



7465 
7466 
(3) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
7467 
7468 
7469 
7470 
7471 
(1) 
(1) 
7472 
7473 
7474 
7475 
7476 
7477 
7478 
7479 
7480 
(1) 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 
7481 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 



010776 






010776 


004567 


007636 


011002 


000777 




011004 


000167 


000610 


011010 


012700 


Miin 


011014 


012703 


000401 


011020 


004467 


003412 


011024 


004767 


005236 


011030 


030502 




011032 


001374 




011034 


004767 


004154 



011040 
011044 
011050 
011054 
011060 
011060 
011062 
011064 
011066 
011072 
011076 
011100 
011100 
011102 
011104 
011106 
011112 
011116 
011120 



CI 2700 
012703 
004467 
012704 

012201 
020001 
001405 
004767 
004767 
000007 

012201 
020001 
001405 
004767 
004767 
000007 



\77777 
000401 
003362 
000100 



007304 
010552 



007264 
010^32 



.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE > 
.ERROR TYPE CODE. 

.■SAVE RO 

;PUT R3 INTO RO 

;PUT SAVED RO INTO R3 

.-DECREMENT 256. WORD COIJNTER 

.-BRANCH IF MORE. 

.SAVE RO 

;PUT R3 INTO RO 

.•PUT SAVED RO INTO R3 

.•CHECK FOR END OF A BLOCK. 

.•BRANCH IF MORE IN CURRENT BLOCK. 

.•FIND NEXT BLOCK AND LOOP TO 21$. 



•TESi 16 



COMPLEMENT PARITY 3 XOR 9 TEST PATTERN. 



TST16: 



1$: 



JSR 
.WORD 

JMP 

MOV 
MOV 
JSR 
JSR 
BIT 
BNE 
JSR 



R5, 
77^ 

TST17 

#-1. 

#401. 

R4. 

PC. 
R5. 
1$ 
PC. 



$SCOPE 



RO 
R3 

INITMM 

U3X9 

R2 

MMUP 



GO TO SCOPE ROUTINE. 

MINIMlfl BLOCK SIZE OF 256. WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
SET UP ALL ONES PATTERN 
SET UP PARITY "ALL ZEROS" PATTERN 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
WRITE 256. WORD BLOCK WITH 3 XOR 9 PAT. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND • 30P TO 1$. 



11$: 
12$: 



• CHECK COMPLEMENT PARITY 3 XOR 9 PATTERN WRITTEN ABOVE. 

SET UP ALL ONES PATTERN 
SET UP PARITY "ALL ZEROS" PATTERN 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SET 256. WORD COUNTER 

GET THE DATA FROM MEMORY IfOER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (CO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
**• ERROR (GO TYPE A MESSAGt) 
ERROR TYPE CODE. 



64$: 
65$: 

66$: 
67$: 



MOV 


#-1, 


RO 


MOV 


#401, 


R3 


JSR 


R4. 


INITMM 


MOV 


#64.. 


R4 


MOV 


(R2)*. 


Rl 


CMP 


RO. 


Rl 


BEO 


65i 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


7 




MOV 


(R2)*. 


Rl 


CMP 


RO. 


Rl 


BEO 


67i 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


7 





CZQMCGO 0-124K MEMORY EXERCISER. 16K 



CZQMCG.P11 12-MAR-80 


13:07 




01 1 1 ?0 


01??01 

W 1 C C W 1 




(?) 


0111?? 

\J I 1 ICC 


0?0001 

WC WV 1 




\ J/ 


0111?4 

w 1 1 1 C"t 


001405 

WW 1 ^W J 






V 1 i 1 CO 




007244 




01 1 1 


004767 


010512 


(S) 


0111% 

will 


000007 

WWW* 






011140 

Will ~w 








011140 

Will ~w 


012201 

W 1 CCW 1 






011142 

Will ~c 


020001 

WC www 1 




(3) 


011144 


001405 

WW 1 ~W J 




(4) 


011146 


004767 


007224 


(5) 


011152 

V 1 ' 1 ^C 


004767 

WW^ ' w 


010472 


(5) 


01 1 1 56 


000007 

wwwww • 




(3) 


011160 

Will WW 






7484 


011160 

Will WV 


010046 

W 1 WN#» w 




(1 ) 


011162 

will 


010300 

W 1 w^ww 




(1 ) 


011164 


012603 

W 1 bWW^ 




7485 


011166 

Will Si^f 


005304 




7486 


01 1 1 70 


001333 




7487 


01 11 72 


010046 




(1) 


01 1 1 74 


010300 




(1 ) 


01 1 1 76 


012603 




7488 


011200 


030502 




(1 ) 


011202 


001324 




(1) 


011204 


004767 


f\f\/ AAy 

OOAOOh 


7489 








7490 








7491 








7492 








7493 


011210 


012700 


1 77777 


7494 


011214 


012703 


000401 


7495 


011220 


004467 


003^12 


7496 


011224 


012704 


A/\A4 f\l\ 

000100 


7497 


011230 






(1) 


011230 


012201 




(2) 


011232 


020001 




(3) 


011234 


001405 




(4) 


011236 




007134 


(5) 


011242 


00^767 


A/ A^i 

01040^ 


(5) 


011246 


000007 




(3) 


011250 






7498 


011250 


005100 




7499 


011252 


005142 




7500 


011254 


012201 




(2) 


011256 


020001 




(3) 


011260 


001405 




(4) 


011262 


004767 


OOrliO 


(5) 


011266 


004767 


010356 


(5) 


011272 


000007 




(3) 


011274 






7501 


011274 


005100 




7502 


011276 


005142 




7503 


011300 


012201 




(2) 


011302 


020001 




(3) 


011304 


001405 




(4) 


011306 


004767 


007064 



VER 
T16 



68S: 
69$: 

70S: 
71 S: 



MACY11 30A(1052) 
COMPLEMENT PARITY 



• # 



K 5 

12-«Aft-80 13:10 PAGE 59-45 
3 XOR 9 TEST PATTERN. 

;GET THE DATA FROM MEMORY UNDER TEST. 
.-COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAG":) 
.•ERROR TYPE CODE. 

.-GET THE DATA FROM MEMORY UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAGE) 
.•ERROR TYPE CODE. 

;SAVE RO 
;PUT R3 INTO RO 
;PUT SAVED RO INTO R3 
.-COUNT 256. WORDS 
.-BRANCH IF MORE 
.-SAVE RO 
.-PUT R3 INTO RO 
.-PUT SAVED RO INTO R3 
.-CHECK FOR END OF A BLOCK. 
.-BRANCH IF MORE IN CURRENT BLOCK. 
.-FIND NEXT BLOCK AND LOOP TO IIS. 

*************************************************************** 

CHECK. COM. CHECK. COM. CHECK COMPLEMENTED PARITY 3 XOR 9 PATTERN. 
*************************************************************** 



SEO 0062 



MOV 


(R2)*. 


R1 


CMP 


nA 


R1 


BEO 


69S 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


IcRROH 


.WORD 


7 




MOV 


(R2)*. 


R1 


CMP 


OA 


R 1 


BEQ 






1 CO 


or 
PC, 


CODklTO 

SrRNIc 


JSR 


O*" 

Pt . 


vcRROn 


.WORD 


f 




MOV 


RO. 


-(5r) 


MOV 


Rj. 


RO 


MOV 


/ CD \ A 


dt 

R3 


DEC 


R4 




c^c 


1?J 




MOV 


RO. 


-(SP) 


MOV 


R3. 


RO 


MOV 


(SP)*. 


R3 


BIT 


R5. 


R2 


BNE 


11$ 




JSR 


PC. 


MHUP 



21$: 
22$: 



72$: 
73$: 

74$: 
75$: 

76$: 



MOV 
MOV 
JSR 
MOV 

MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

COM 
COM 
MOV 
CMP 
BEQ 
JSR 
JSR 
.WORD 

COM 
COM 
MOV 
CMP 
BEQ 
JSR 



#-1 , RO 
#401, R3 
R4. INITMM 
#64., R4 



(R2)*, 
RO. 
73i 
PC. 

RO 

-(R2) 

(R2)*. 

RO. 

75i 

PC, 

PC, 

7 

RO 

-(R2) 

(R2)>, 

RO. 

77i 

PC. 



Rl 
R1 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 



;SET UP ALL ONES PATTERN 
.-SET UP PARITY "ALL ZEROS" PATTERN 
.-INITIALIZE THE MEMORY ADDRESS POINTERS. 
;SET 256. WORD COLNTER 

.-GET THE DATA FROM MEMORY L#f>ER TEST. 
.-COMPARE THE CHECK WORD WITH THE DATA READ. 
.-BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAGE) 
.-ERROR TYPE CODE. 

.•COMPLEMENT CHECK WORD 

.•COMPLEMENT TEST DATA 

;6ET THE DATA FROM MEMORY LfDER TEST. 

;COMPARF THE CHECK WORD WITH THE DATA READ. 

.•BRANCH OVER ERROR CALL IF GOOD DATA. 

.•SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
.-ERROR TYPE CODE. 

.•COMPLEMENT CHECK WORD 
.•RESTORE DATA 

;GET THE DATA FROM MEMORY UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 



CZQMCGO 0-1 MEMORY 



CZQHCG.P11 


(5) 


011312 


004767 


(5) 


011316 


000007 


(3) 


01 1 320 




7504 


01 1 320 


012201 


(2) 


01 1 322 


020001 


(3) 


011324 


001405 


(4) 


01 1 326 


004767 


(5) 


01 1 332 


004767 


(5) 


011336 


000007 


(3) 


011340 




7505 


011340 


005100 


7506 


011342 


005142 


7507 


011344 


A4 A 4 

012201 


(2) 


011346 


020001 


(3) 


/\4 4 7r/\ 

01 1 350 


AA4 i AP 

001405 


(4) 


011352 


AAy 9^ 9 

004767 


(5) 


01 1 356 


004767 


(5) 


011362 


AAAAA9 

000007 


(3) 


011364 




7508 


/\4 4 9^ y 

011364 


AAf 4 AA 

005100 


7509 


/\4 4 9^ ^ 

011366 


AAC4 / 1 

005142 


7510 


01 1 370 


A4 ^'^Ai 

012201 


(2) 


/\4 4 "TTI 

01 1 372 


020001 


(3) 


A4 4 yy/ 

01 1 374 


AA4 y AC 

001405 


(4) 


A4 4 

01 1 376 


AA/ 7 

004767 


(5) 


A4 4 / 

01 1402 


AAy ^ 

004767 


(5) 


011406 


AA/\AA7 

000007 


(3) 


A4 4 / 4 A 

011410 




7511 


/\4 4 / 4 A 

01 1410 


A4 T^AI 

012201 


(2) 


A4 4 / 4 ^ 

011412 


A^AAAI 

020001 


(3) 


A4 4 / 4 / 

011414 


AA4 / AC 

001405 


(4) 


A4 4 / 4 ^ 

011416 


AA/ 7^ 7 

004767 


(5) 


A4 4 / '^'^ 

011422 


AA/ "y 
004767 


(5) 


A4 4 / 

011426 


AAAAA7 

000007 


(3) 


A4 4 / 7 A 

011430 




7512 


A4 4 / 9 A 

011430 


AAf 4 AA 

005100 


7513 


A4 4 / 

01 1432 


AAf 4/1 

005142 


7514 


A4 4 / T/ 

01 1434 


A1 T^A4 

012201 


(2) 


A4 4 / 

011436 


A AAA 4 

020001 


(3) 


A4 4 / / A 

011440 


AA4 / AC 

001405 


(4) 


A4 4 / / 

011442 


/\A/ TZ. T 

004767 


(5) 


011446 




(5) 


A4 4 / 

011452 


/\/\AAA7 

000007 


(3) 


A4 4 / f / 

01 1454 




7515 


A4 4 / C / 

011454 


AAC 4 AA 

005100 


7516 


A4 4 / 

011456 


AAC 4 / 

005142 


7517 


A4 4 / ^ A 

01 1460 


A4 1'^A4 

012201 


(2) 


A4 4 / ^ *i 

01 1462 


020001 


(3) 


A4 4 / ^ / 

on 464 


AA1 y AC 

001405 


(4; 


Ul 1400 




(5) 


011472 


004767 


(5) 


011476 


000007 


(3) 


011500 




7518 


011500 


012201 


(2) 


011502 


020001 


(3) 


011504 


001405 



EXERCISER. 
13:07 

010332 



007044 
010312 



16K 



007020 
010266 



006774 
010242 



006754 
010222 



006730 
010176 



006704 
010152 



VER 
T16 



77S 

78S 
79$ 

SOS 
81S 

82S 
83t 

84S 
85$ 

86$ 
87$ 

88$ 
89$ 



30A(1052) lb-«AR-80 13:10 PAGE 59-46 
«NT PARITY 3 XOR 9 TEST PATTERN. 



SEO 006i 



PC. 

7 

(R2)*. 

RO- 

79i 

PC. 

PC, 

7 

RO 

-(R2) 

(R2)*. 

RO. 

81$ 

PC. 

PC. 

7 

RO 

-(R2) 

(R2)*. 

RO, 

83$ 

PC. 

PC. 

7 

(R2)*, 

RO. 

85i 

PC. 

PC, 

7 

RO 

-(R2) 

(R2)*. 

RO. 

87$ 

PC. 

f- 

RO 

-(R2) 

(R2)*, 

RO. 

89$ 

PC, 

PC. 

7 

(R2)*. 

RO- 

9li 



$ERROR 



R1 
R1 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
SERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



R1 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 

SPRNT2 
$ERROR 



Rl 
Rl 



ERROR (GO TVPE A MESSAGt^ 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*•* ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

GET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 
RESTORE DATA 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 

COMPLEMENT TEST DATA 

6ET THE DATA FROM MEMORY UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF 6000 DATA. 

SET UP VALUES FOR ERROR PRINTING. 

*** ERROR *** (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

COMPLEMENT CHECK WORD 
RESTORE DATA 

6ET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
•** ERROR *** (GO TYPE A MESSA6E) 
ERROR TYPE CODE. 

6ET THE DATA FROM MEMORY UNDER lEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF 600D DATA. 



CZQMCGO MEMORY EXERCISER. 16K VER MACVll 

CZQMCG.P11 12-«AR-80 13:07 T16 COMPLE 

(^) 011506 004767 006664 90$: JSR 

(5) 011512 004767 010132 JSR 

(5) 011516 000007 .WORD 

(3) 011520 91$: 

7519 011520 005100 COM 

7520 011522 005K2 COM 

7521 011524 012201 MOV 

(2) 011526 020001 CMP 

(3) 011550 001405 BEG 

(4) 011532 004767 006640 92$: JSR 

(5) 011536 004767 010106 JSR 
(5) 011542 000007 .WORD 
(3) 011544 93$: 

7522 011544 005100 COM 

7523 011546 005142 COM 

7524 011550 012201 MOV 

(2) 011552 0200C1 CMP 

(3) 011554 001405 BEO 

(4) 011556 004767 006614 94$: JSR 

(5) 011562 004767 010062 JSR 
(5) 011566 000007 .WORD 
(3) 011570 95$: 

7525 011570 010046 MOV 
(1) 011572 010300 MOV 
(1) 011574 012603 MOV 

7526 011576 005304 DEC 

7527 011600 001213 BNE 

7528 011602 010046 MOV 
(1) 011604 010300 MOV 
(1) 011606 012603 MOV 

7529 011610 030502 BIT 
(1) 011612 001204 BNE 
(1) 011614 004767 003374 jSR 



30A(1052) 
«NT PARITY 



M 5 

12-MAR-80 13:10 PAGE 59-47 
3 XOR 9 TEST PATTERN. 



SEO 006^ 



PC. SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 

PC. $ERROR ERROR (GO TYPE A MESSAGE) 

7 .-ERROR TYPE CODE. 

RO .-COMPLEMeNT CHECK WORD 

-(R2) .-COMPLEMENT TEST DATA 

(R2)*. R1 ;GET THE DATA FROM MEMORY UNDER TEST. 

RO. R1 .-COMPARE THE CHECK WORD WITH THE DATA READ. 

93$ .BRANCH OVER ERROR CALL IF GOOD DATA. 

PC. SPRNT2 ;SET UP VALUES FOR ERROR PRINTING. 

PC, $ERROR ERROR (60 TYPE A MESSAGE) 

7 .-ERROR TYPE CODE. 

RO .-COMPLEMENT CHECK WORD 

-(R2) .-RESTORE DATA 

(R2)*, R1 .-GET THE DATA FROM MEMORY UNDER TEST. 

RO, Rl .-COMPARE THE CHECK WORD WITH THE DATA READ. 

95$ .-BRANCH OVER ERROR CALL IF GOOD DATA. 

PC. SPRNT2 .-SET UP VALUES FOR ERROR PRINTING. 

PC. $ERROR ERROR (GO TYPE A MESSAGE) 

7 .-ERROR TYPE CODE. 



RO, 


-(SP) 


-SAVE RO 


R3. 


RO 


■PUT R3 INTO RO 


(SP)*. 


R3 


■PUT SAVED RO INTO R3 


R4 




; DECREMENT 256. WORD COUNTER 


22$ 




■BRANCH IF MORE. 


RO. 


-(SP) 


■SAVE RO 


R3. 


RO 


■PUT R3 INTO RO 


(SP)*, 


R3 


•PUT SAVED RO INTO R3 


R5. 


R2 


; CHECK FOR END OF A BLOCK. 


21$ 




■BRANCH IF MORE IN CURRENT BLOCK. 


PC. 


MMUP 


;FIND NEXT BLOCK AND LOOP TO 21$. 



._l 



CZQMCGO 0-124K MEMORY EXERCISER, 16K VER 
CZQMCC.Pll 12-MAR-80 13:07 T17 



N 5 

MACV11 30A{1052) 12-MAR-30 13:10 PAGE 59-48 
WORSE CASE NOJSE PARITY BYTE TESTING 



SEQ 0065 



7CTfi 








\i) 








1 L \ 
















1 L \ 








1 L \ 








iL ^ 








(X\ 








^ 5^ 
\c) 


\J 1 1 Oc w 






IXS 

\ J) 


U 1 1 OcU 


VA^s DO' 


nn70iz. 




ni 1 


/WYW> 
\MJ\AAJ 






\J 1 1 OcO 


OnS7A7 


1 7(\LLL 
1 f v*»hh 




ni 1 

U 1 1 Ojc 


nni Lf\L 




f jH 1 


V 1 1 OjS 


0^?777 


nnoi on 






OOI^O? 




f jHj 




OOOI A7 
UUU 1 Of 


OOOAP? 


f JHH 




OOSOOO 




7S^S 
f jHj 


ni IAS? 


\J\JHfOf 


OO^^?? 




01 1 ASA 


\J\JHHOf 


00?SSi 


7^A7 










ni 1 AA5 


0Vi7A7 

U.jOf Of 


1 A7ASA 

lOf o^o 




01 1 A70 


001010 






01 1 A7? 


n%7A7 

yJJ^f Of 


1 A7AS0 

1 Of SJJ\J 




011700 


00100^ 




ijjC 


01 1 70? 


ososo? 




f J J J 


01 1 70^ 


oos?o? 






01 1 70A 


0001 A7 

vvw 1 Of 


OOOS40 

WWW J*tw 


1 J J J 


01171? 


004 7A7 






01 1 71 A 


00^7A7 

UVH f Of 


00S7?4 


7SS7 


01 1 7?? 


0?0??7 


000114 

vW 1 1 "t 


7SSA 


01 1 7?A 


001 00^ 




7SS0 


01 17^1 


\Joc f v/c 


00000^ 


7SAfl 


01 1 7^ 


0001 A7 

vvw 1 Of 


000S1? 


7S^^1 


01 1 7^0 


111 ?01 




7S^%? 


01 1 7^? 






vc / 


01 1 7Ai 


UVtf Of 


OOA^S? 


V J/ 


01 1 750 


004 7A7 

f Of 


007A74 

\A/f Of 


V J/ 


01 1 7S^ 


000011 




V 1 / 


0117SA 








01 1 75A 


1050A7 


1A757A 

1 Or ^ f O 




01 1 7A? 


1 1?700 


000P5? 


r ^\JJ 


0117AA 


11001? 

1 1 WW 1 C 




f ^/OO 




01A70^ 

V/ 1 O f \J-J 


1 A7A'^4 

1 Or OJ*t 


f -/Or 


01 1 77il 


0SA77^ 


1A7A1? 
lof o ic 


r ^WO 


01 POOP 


05?73^ 


000001 

WWw 1 




01P00A 


005713 

wV> r 1 ^ 




7S70 


01P010 


001*571 




7S71 








7572 


012012 


110012 




7573 


0120U 


016703 


167610 


757A 


012020 


046733 


167566 


7575 


01 2024 


005713 




7576 


012026 


001374 




7577 


012030 


016737 


167576 


7578 








7579 


012036 


105412 





TEST 17 WORSE CASE NOISE PARITY BYTE TESTING 

CHECK PARITY MEMORY WITH A SERIES OF BYTE PATTERNS 

1) FORCE WRONG PARITY IN EACH BYTE OF PARITY MEMORY 

2) READ IT BACK WITH ACTION ENABLE SET, MAKING SURE THAT A TRAP OCCURS 

3) WRITE GOOD PARITY AND MAKE SURE NO TRAP OCCURS WHEN IT IS READ 

4) MAKE SURE THE ERROR ADDRESS BITS (CSR BITS <11-5» ARE CORRECT 



TST17: 



WWPBO: 



167276 



167650 
167642 



IS: 
2$: 



WWP8YT: 



000000 



2$: 

WUPBI: 

3S: 
64S: 

65S: 

MIPe2: 
10$: 



JSR 

.WORD 

TST 

BEQ 

BIT 

BEQ 

JMP 

CLR 

JSR 

JSR 

BIT 

BNE 

BIT 

BNE 

BIS 

INC 

JMP 

JSR 

JSR 

CMP 

BNE 

ADD 

JMP 

MOVB 

BEQ 

JSR 

JSR 

.WORD 

CLRB 
MOVB 
MOVB 
MOV 
BIS 
BIS 
TST 
BNE 



R5, iSCOPc 

0 

MPRX 
1$ 

#SW06, aswR 
2$ 

TST20 
RO 
PC, 
R4. 



BITPT, 
2$ 

BITPT+2 
2$ 
R5, 
R2 

WWPB5 

PC. 

PC, 

R2, 

3$ 

#4, 

MJPBS 

(R2), 

65S 

PC, 

PC, 

11 



SETCON 
INITMM 

PMEMAP 

,PMEMAP+2 

R2 

SETAE 

CKPMER 

#114 

R2 

Rl 

SPRNT 
SERROR 



OEFLG 
#252, 
RO, 
•MPRX, 
MP,a(R3) 
#AE,a(R3)* 
(R3) 
10$ 



RO 
(R2) 
R3 



SET WRONG PARITY IN 

11$: 



000114 



MOVB 
MOV 
BIC 
TST 
BNE 
MOV 



RO, 

.MPRX, 

(R3) 
11$ 

.P8TRP, 



60 TO SCOPE ROUTINE. 

NO MINIMLW BLOCK SIZE REQUIRED THIS TEST. 

CHECK FOR ANY PARITY MEMORY. 

BR IF NO PARITY MEMORY. 

CHECK FORINHIBIT PARITY SWITCH. 

BR IF NOT SET 

SKIP THIS TEST IF NO PARITY MEMORY PRESENT, 

ZERO TO BE PUT IN ALL MEMORY. 

ROUTINE TO LOAD ALL MEMORY. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

CHECK IF CURRENT BANK HAS PARITY MEMORY. 

BR IF PARITY MEM. 

;...HI 64K. 

BR IF PARITY MEM. 

POINT TO END OF BLOCK. 

FIRST ADR OF NEXT BLOCK. 

BR TO FIND NEXT BLOCK. 

SET ACTION ENABLE (EVEN IF BANKO.) 

CHECK FOR ANY NON TRAP PARITY ERRORS. 

CKECK IF POINTING TO PARITY ERROR VECTOR. 

BR IF NOT AT VECTOR. 

SKIP PARITY VECTOR. 

CHECK FOR BLOCK END. 

ZHEZK IP BYTE STILL CLEARED. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

•** ERROR (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

CLEAR ODD/EVEN FLAG. 

SET UP DATA... EVEN, SETS PARITY BIT. 

MOV DATA INTO TEST LOCATION. 

GET PARITY REGISTER TABLE POINTER. 

SET WRITE WRONG PARITY. 



;• DETECT WRONG PARITY 
NEGB (R2) 



CHECK FOR TABLE TERMINATOR, 
BR IF MORE REGS IN TABLE. 
LOCATION UNDER TEST. 

(R2) .-WRITE SAME DATA (EXCEPT PARITY) VIA DAT08- 
R3 ;GET PARITY REG TABLE POINTER. 

a(R3)* .-CLEAR ;*ITE WRONG PARITY, 

CHECK FOR TABLE TERMINATOR, 
BR IF MORE PARITY REGISTERS. 
a#PARVEC .SET UP VECTOR FOR EXPECTED TRAH. 
VIA DATIP; DATOB SHOULDN'T EXECUTE. 

;DATIP (DATOB AND COM PARITY BIT.) 



CZQMCGO 0-1 2AK MEMORY EXERCISER. 16K VER 
CZQMCG.P11 12-mR-80 13:07 T17 



B 6 

MACY11 3OA{1052) 12-mR-80 
WORSE CASE NOISE PARITY BYTE 



13:10 PAGE 59-A9 
TESTING 



SEQ 00t>b 











f JO 1 




w ■ O' J» 


16757? 








006^00 




01?05? 


f O' 


007S7? 




01?fl5A 


00001 P 




r 


ni?(W) 


OOO^^P 












7SRS 








7Sfi^» 


01?06? 


016757 


167^50 


7Sft7 

r -/Or 


01?070 


0??6?6 






01207? 


016703 


167530 




012076 


032713 


000001 


7590 


01?10? 


001003 




7S91 


01?104 


017301 


000000 


7S9? 


01?110 


100413 




7593 


01?11? 


062703 


000010 

WW ' v 


7594 


01?1 16 


020367 


167506 


7595 


01?1?? 

VIC ICC 


103765 




7596 


01?1?4 


004767 


006222 


(?) 


01?130 


004767 


007514 




01?134 


000013 

WW 1 — / 




7597 


012136 


000533 

VW ^ ■J ■J 




7598 


012140 


036763 


167400 


7599 


012146 


001011 




7600 


012150 


036763 


167372 


7601 


012156 


001005 

w • w^ 




7602 


012160 


004767 


006162 

WW t N/w 


(2) 


012164 


004767 


007460 


(2) 


012170 


000014 

WW • » 




7603 


012172 






(?) 


012172 


010046 




7604 

f ^^^^ 


012174 


010200 




7605 


012176 


042700 


003777 


7606 


012202 


000300 




7607 


012204 


006300 




7608 


012206 


006300 




7609 


012210 

Vice ■ v 


005767 

W^ ' w 


166372 


7610 


012214 


001404 




7611 


012216 


042700 


177600 


7612 


012222 


063700 


172344 


7613 


012226 


052700 


100001 

• WW » 


7614 


012232 


016367 


000006 

wvww 


7615 


012240 


046700 


167252 


7616 


01224A 


046701 


167246 


7617 








7618 


012250 


020001 




(2) 


012252 


00U05 




(3) 


012254 


004767 


006066 


(4) 


012260 


004767 


007364 


(4) 


012264 


000015 

WW 1 




(2) 


012266 






7619 


012266 


005073 


000000 


7620 


012272 


010346 




7621 


012274 


062703 


000010 


7622 


012300 


020367 


16732A 


7623 


012304 


101014 





000114 



SHOULD HAVE TRAPPED TO P8TRP. 



64$: 



MOV 
JSR 
JSR 
.yORD 
BR 



.PESRV. *rPARVEC .-RESET VECTOR FOR UNE)(PECTED TRAPS. 



PC. 
UUPS4 



SPRNTO 
SERROR 



000114 P8TRP: 



21$: 



• EXPECTED PARITY MEMORY TRAPS 



'2$: 



64$: 



000002 23$: 



0C0004 



6S$: 



24$: 



167256 



25$: 



66$: 



67$: 



26$: 



MOV 
CMP 
MOV 
BIT 
BNE 
MOV 
BMJ 
ADD 
CMP 
BLO 
JSR 
JSR 
.WORD 
BR 
BIT 
BNE 
BIT 
BNE 
JSR 
JSR 
.UORD 

MOV 
MOV 
BIC 
SMB 
ASL 
ASL 
TST 
BEO 
BIC 
ADD 
BIS 
MOV 
BIC 
BIC 



.PESRV. ifPARVEC 
(SP)*. (SP)+ 
•MPRO. R3 
*8IT0. (R3) 
22$ 
a(R3). 
23$ 
#10. 
R3. 
21$ 
PC. 
PC. 
13 

UUPB4 
BITPT. 
24$ 

BITPT+2.4(R3) 
24$ 

PC. SPRNTP 
PC. $ERROR 

14 



R1 
R3 

.MPRX 

SPRNTO 
$ERROR 



2(R3) 



RO.-(SP) 
R2. RO 
#3?77. RO 
RO 
RO 
RO 

MMAVA 

25$ 

#177600.RO 

a«Ki par2.ro 

#BiT15*BIT0.R0 
6(R3). RESRVD 
RESRVD. RO 
RESRVD R1 
.-NOTE: THE /«OVE INSTRUCTION (2 



CMP 

BEO 
JSR 
JSR 
.yORD 

CLR 
MOV 
ADD 
CMP 
BHI 



RO, 
67i 
PC. 

PC, 

15 



R1 

SPRNTP 
$ERROR 



a(R3) 

R3.-(SP) 
#10, R3 
R3, .MPRX 

uype3 



SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
SKIP TRAP SERVICE. 

COME HERE. 

.RESET PARITY VECTOR FOR UNEXPECTED TRAPS. 

RESET THE STACK POINTER AFTER TRAP. 

GET PARITY REG AND MAP TABLE POINTER. 

CHECK IF THIS REGISTER EXISTS. 

BR IF IT DOESN'T EXIST. 

GET THE CONTENTS. 

BR IF ERROR FLAG SET. 

MOVE POINTER TO NEXT REG. 

CHECK FOR END OF TABLE. 

BR IF MORE REGISTERS. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
EXIT AFTER ERROR. 
CHECK THE MAP FOR THIS REGISTER. 
BR IF THIS REGISTER CONTROLS THIS BANK. 
CHECK THE HI 64K. 

BR IF THIS REGISTER CONTROLS THIS BANK. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

.•PUSH RO ON STACK 
GET THE ADDRESS POINTER. 
CLEAR LOU ADDRESS BITS. 
SHIFT 6 PLACES RIGHT. 



CHECK FOR MEM MGMT. 

BR IF NO MEM MGMT. 

CLEAR BANK BITS 

ADD MEM MGMT OFFSET. 

SET ERROR AND AE BIT IN CHECK WORD. 

GET APPROPIATE MASK. 

CLEAR PARITY REG BITS RESERVED FOR FUTURE. 

CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
WORDS) CAN BE NOP'ED FOR U^f1IXED MEMORY TYPES. 
.•COMPARE THE CHECK WORD WITH T>€ DATA READ. 
.-BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
.ERROR TYPE CODE. 



CLEAR REG INCLUDING ACTION ENABLE. 
;PUSH R3 ON STACK 

UPDATE POINTER TO NEXT PARITY RtG ♦ 

CHECK FOR END OF TABLE. 

BR IF END OF TABLE REACHED. 



MAP. 



CZQMCGO 0-12AK HEHORY EXERCISER. 16K VER 
CZQHCG.Pn 12-«AR-80 13:07 T17 



C 6 

NACVll 50A(1052) 12-nAft-80 
WORSE CASE NOISE PARITY BYTE 



13:10 PAGE 59-50 
TFSTING 



SEO 0067 



7624 
7625 
7626 
7627 
7628 
(2) 
(2) 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 
7637 
7638 
7639 
7640 
7641 
(2) 
(3) 
(4) 
(4) 
(2) 
7642 
7643 
7644 
7645 
7646 
(2) 
(5) 
(3) 
(1) 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
7654 
7655 
7656 
7657 
7658 



012306 
012312 
012314 
012320 
012322 
012326 
012332 
012334 
012336 



032713 
001370 
017301 
100365 
004767 
004767 
000016 
000757 
111204 



012340 111212 



012342 
012344 
012350 

012354 
012360 
012362 
012364 
012370 
012374 
012376 
012376 
012404 
012406 
012410 
012412 
012414 
012420 
012424 
012426 
012426 
012430 
012432 
012436 
012442 
012444 
012450 
012452 
012454 
012456 
012462 
012466 



000001 

000000 

006020 
007316 



D T T 
Di 1 


Mai TO 






IMC 


cO» 




• QD IF TUIC DAOITV DCtl nnCCM'T EVICT 


nuv 




D1 
N 1 




RPI 






■BR IF NO ERROR FLAG 


JSR 


PC. 


SPRNTP 


■SET UP VALUES FOR ERROR PRINTING. 


JSR 


PC. 


SERRDR 


•••• ERROR (GO TYPE A MESSAGE) 


.WORD 


16 




■ERROR TYPE CODE. 


BR 


26S 




•BR AFTER ERROR. 


novB 


(R2). 


R4 


rGET THE DATA FOR CHECKING. 



68S: 



UUF'63 ' 

READING THE DATA VIA DATI TO CHECK IT SHOULD CAUSE PARITY ERROR, BUT 
;• ACTION ENABLE IS NOT SET IN CONTROLING REG, SO NO TRAP SHOaD OCCURE. 

MOVB (R2). (R2) .RESTORE RIGHT PARITY 
.-NOTE: THE ABOVE INSTRUCTION CAN BE NOP'ED FOR PROCESSORS 

WHICH DO ONLY DAT06 TO DESTINATION OF MOVB INSTRUCTIONS. 

;;POP STACK INTO R3 

;READ THE PARITY REGISTER TO CHECK IT AGAIN. 
; CLEAR PARITY REG BITS RESERVED FOR FUTURE. 
JORDS) CAN BE NOP'ED FOR ur>«IXED MEMORY TYPES, 
; CLEAR THE ACTION ENABLE BIT IN TEST DATA. 
.COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
; ERROR TYPE CODE. 

CLEAR ALL BUT ACTION ENABLE. 
GET DATA READ FROM MEMORY FOR TESTING. 
;POP STACK INTO RO 
CHECK THE DATA. 

BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

RESTORE DATA. 

DO A DATI TO BE SURE RIGHT PARITY. 
SET ODD PARITY DATA. 

CHECK IF DONE BOTH ODD AND EVEN PARITY. 
BR IF DONE BOTH EVEN AND ODD. 
LOOP BACK AND DO ODD (PARITY BIT CLR). 
MOVE POINTER TO NEXT MEMORY BYTE. 
CHECK FOR END OF BLOCK. 
BR IF END OF BLOCK FOUND. 
LOOP BACK TO TEST NEXT BYTE. 
FIND NEXT BLOCK AND LOOP TO WWPBVT 
GO RESET PARITY REGISTERS. 



012603 




* 


MOV 


(SP)*,R3 


017301 


000000 




MOV 


a(R3), R1 
RESRVO. R1 


046701 


167142 




BIC 






.-NOTE: 


THE ABOVE INSTRUCTION (2 


042700 


000001 




#AE. 


RO 


020001 






CMP 


RO, 


R1 


001405 






BEQ 


65$ 




004767 


005756 


64$: 


JSR 


PC. 


SPRNTP 


004767 


007254 




JSR 


?^ 


$ERROR 


000015 




65$: 


.WORD 






012773 


000001 000000 




MOV 


#1. 


a(R3) 


010401 






MOV 


R4. 


R1 


012600 






MOV 


(SP)+.RO 


120001 






CMPe 


RO- 


R1 


001405 






BEQ 


67i 




004767 


005732 


66$: 


JSR 


PC. 


SPRNTO 


004767 


007224 




JSR 


PC, 


$EPROR 


000017 




67$: 


.WORD 


17 




110012 




WWP64: 


MOVB 


RO. 


(R2) 


105712 






TST8 


(R2) 




012700 


000253 




MOV 


#253. 


RO 


105167 


167116 




COI« 


OEFLG 




100002 






BPL 


27$ 




000167 


177316 




JMP 


WWP62 




005202 




27$: 


INC 


R2 




030502 




WWPe5: 


BIT 


R5. 


R2 


001402 






BEQ 


30$ 




000167 


1 77240 




JMP 


WWP61 




004767 


002526 


30$: 


JSR 


PC, 


MMUP 


004767 


005054 




JSR 


PC. 


MAMF 



UQ«CGO 0-1 24K ME«ORr EXERCISER. 



CZQMCG.P11 


l2-'1AR-80 


7660 






(3) 






(3) 






(?) 


01247? 




(3) 


012472 


004567 


(3) 


012476 


000000 


7661 


012500 


010703 




012502 


042703 


7663 


012506 


004467 


7664 


012512 


010246 


7665 


012514 


010346 


7666 


012516 


012322 


7667 


012520 


032703 


7668 


012524 


00 1002 


7669 


012526 


162703 


7670 


012532 


030502 


7671 


012534 


001 3^0 


7672 


012S36 


012603 


7673 


012540 


012602 


7674 


012542 


012500 


7675 


012544 


012201 


(2) 


012546 


020001 


(3) 


012550 


001405 


(A) 


012552 


004767 


(5) 


012556 


004767 


(5) 


012562 


000020 


(3) 


012564 




7676 


012564 


032705 


7677 


012570 


001002 


7678 


012572 


162703 


7679 


012576 




(1) 


012576 


030502 


(1) 


012600 


AA^ ?^A 

001560 


(1) 


012602 


004767 


7680 






7681 






7706 






(3) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4j 






(4) 






(4) 







D 6 

16IC VER HACrll 30A(1052) 12-n>R-80 13:10 PAGE 59-5^ 

T20 RANDOM DATA TESTING THRO PROGRAM CODE RELOCATION. 



5E0 0068 



•TEST 20 



RANDOM DATA TESTING THRU PROGRAM CODE RELOCATION. 



TST20: 

GO TO SCOPE ROUTINE. 

NO MINIMUI BLOCK SIZE REQUIRED THJS TEST. 
GET CURRENT PROGRAM COUNTER. 
POINT TO BEGIM^ING OF CURRENT 2k BLOCK. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SAVE MEMORY POINTER. 
SAVE '!)ATA" POINTER. 
MOV CODE INTO TEST MEMORY. 
CHECK FOR END OF 'DATA TABLE" 
BRANCH IF MORE 

RESET POINTER TO START OF 'T»ANDOM DATA" 
CHECK FOR END OF BLOCK 
BRANCH IF MORE. 
RESET 'DATA" POINTER. 
RESET MEMORY POINTER. 
GET S/B DATA. 

GET THE DATA FROM MEMORY UNDER TEST. 
CO«>ARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

CHECK FOR END OF 'DATA TABLE" 
BR IF MORE. 

RESET POINTER TO TOP OF "DATA TABLE". 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1S. 

S8TTL SECTION 3: INSTRUCTION EXECUTION TESTS. 

• ********************************************************** 

'test 21 EXECUTE DATI, DATO THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOV R4,{R2>' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOV INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



AAA 1 / T 

006142 




■ CD 

JSR 




•SCUrc 






.UUKU 


U 






KANT 3 1 : 


nUv 


PC 


o7 

Kj 


/V\7777 




oi L 


H f f 1 f , 


K 5 


001 ic'* 




i CD 




1 u t TMM 




1 * : 


nUV 


He, 


- t CD) 






nUv 


R3 






")%. . 
c*. 


nUV 






(\r\TT'T'f 

KjMi f 1 f 




Q f T 


#7777 


D7 






OKIE 
□IMC 






UIOOOU 








Kj 




J*. 


Q t T 




P? 






(SMC 










Mnu 
nuv 


( CD) *■ 


nj 








V or J ▼ , 


P? 
nc 






nuv 


In J/ * . 


pn 






Mnu 




R1 






\.rr 


on 


P1 






ocu 


O J* 








KP 
Jin 




CDRNT? 


007066 




JSR 


PC. 


$ERROR 






.WORD 


20 






65$: 








007777 




BIT 


07777, 


R3 






BNE 


5S 




010000 




SUB 


#10000. 


R3 




5$: 












BIT 


R5. 


R2 






BNE 


4S 




002406 




JSR 


PC. 


MMUP 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 

ETC.. ETC.. ETC. 



INSTRUCTION 
PLACED THERE 

010412 
000205 

010412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

000205 
000205 

000205 
000205 



RO - DATA WRITTEN ON TOP OF JUT BY THE lUT (SHOULD BE) 
R1 DATA READ FROM MEMORY (WAS). 



CZQWCGO 




CZQWCG.P11 


12-^1AR-80 


Is; 












( L \ 






1 1 \ 
I «• 1 






( X \ 






1 0 1 
' c > 










004567 


1 X \ 


m 5A1 5 


000003 


1 X > 






I X \ 


n 1 1 L 


000167 


( X ^ 






f (\jf 


r>i 


012703 


77nfl 




012704 


f r\Jy 




010400 


771 n 


ni OAXO 


004467 


771 1 


ni ^fsXA. 

U 1 CD JO 


010322 


771 5 


U 1 cOhU 


010412 


771 T 


fii 


004542 


771 Z. 


ni 

U 1 CO**** 


012201 


771 ^ 


U 1 cOhO 


020001 


1 'J\ 
\Ci 


ni 5<.^n 

U 1 cO 


001405 


IX'S 


ni 

U 1 CO JC 


004767 


< L 1 


ni 

U 1 CO jO 


004767 


f A) 




000021 


(2) 


012664 




77^6 


012664 


010322 


7717 


012666 


030502 


n ) 


012670 


001363 


(1 ) 


012672 


004767 



EXERCISER, 
15:07 



C06026 



000056 

0104^2 
000205 

001600 



005514 
006766 



002316 



6*: 



VER 

T21 



E 6 

MACV11 30A(1052) 12-mR-80 i: 
EXECUTE DATI. DATO THRU McMORY. 



10 PAGE S9-52 



SEC 0069 



R2 = ADDRESS Of lUT/DATA. 
R3 = INSTRUCTION UNDER TEST 
R4 - RTS R5 (CODE 205). 
R5 = BLOCK BOtNORY BIT fWSK. 



(lUT) 



TST21: 



DIDO: 



1$: 
2S: 



64S: 
65S: 



JSR 




tSCOPE 


.WORD 






JMP 


TST22 




MOV 


#010412. R3 


P10V 


#205, 


R4 


NOV 


R4. 


RO 


JSR 


R4. 


INITMM 


MOV 


R3. 


(R2)* 


MOV 


R4. 


(R2) 


1 CD 

Jan 


R5. 


-(R2) 


MOV 


(R2)*. 


R1 


CMP 


RO. 


R1 


BEO 


65i 




JSR 


PC. 


SPRNT3 


JSR 


PC. 


(ERROR 


.WORD 


21 




MOV 


R3. 


(R2)* 


BIT 


R5. 


R2 


BNE 


2S 




JSR 


PC. 


MMUP 



GO TO SCOPE ROUTINE. 

MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'MOV R4,(R2)* INSTRUCTION (lUT). 
GET 'RTS R5' 

SET UP S/8 DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT lUT INTO FIRST LOC OF BLOCK. 
PUT 'RTS R5' FOLLOWING lUT. 
GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
• ERROR (60 TYPE A MESSAIjE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
CHECK FOR EM) OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIW NEXT BLOCK AND LOOP TO IS. 



CZQHCGC 0-1 MEMORY EXERCISER. 16K VER 
CZQMCG.P11 12-«AR-80 15-07 J22 



F 6 

MACVII 30A(1052) 12-«AR-80 13:10 PAGE 59-53 
EXECUTE DATI. DATGB (LOW BYTE) THRU MEMORY. 



SEO 0070 



77^3 
(3) 
(^) 
(A) 
(4) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
f4) 
^4) 
(4) 
(4) 
(A) 
(A) 
(A) 
(A) 
(A) 
fA) 
(A) 
(A) 
(A) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
77AA 
77A5 
77A6 
774 7 
7748 
7749 
7750 
7751 
7752 
(2) 
(3) 
(4) 
(4) 
(2) 
7753 
7754 
(1) 
(1) 



012676 
012676 
012702 



012710 
012714 
012720 
012724 
012730 
012732 
012734 
012736 
012740 
012742 
012744 
012750 
012754 
012756 
012756 
012760 
012762 
012764 



004567 
000003 



012703 
012704 
012700 
004467 
010322 
010412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
030502 
001363 
004767 



005736 



012704 000167 000060 



110412 
000205 
110605 
001506 



005422 
006674 



002224 



TEST 22 EXECUTE DATI. DATOB (LOW BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOVB R4.(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOVB* INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 

LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRJ TEST / 40004 



INSTRUCTION 
PLACED THERE 

110412 
000205 

110412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

110605 
000205 

110605 
000205 



[SHOULD BE), 



FTC. ETC.. ETC. 

RO = DATA WRITTEN ON TOP OF lUT BY THE lUT 

Rl = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF lUT/DATA. 

R3 = INSTRUCTION UNDER TEST (lUT). 

R4 = RTS R5 (CODE 205). 

R5 = BLOCK BOUNDRY BIT MASK. 



TST22: 





JSR 


R5. 


$SCOPE . 


60 TO SCOPE ROUTINE. 




.WORD 


3 




•MINIMLfl BLOCK SIZE OF 2 WORDS 
■ RE(XJIRED FOR THIS TEST. 




JMP 


TST23 




•SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 










• AVAILABLE FOR TEST. 

•GET 'MOVB R4.(R2)' INSTRUCTION (lUT). 

•GET 'RTS R5' 


DID8L: 


MOV 


#1 10412. R3 




MOV 


*205. 


R4 




MOV 


#1 10605.ro 


•SET UP S/8 DATA AFTER EXECUTION. 




JSR 


R4. 


INITW 


: INITIALIZE THE MEMORY ADDRESS POINTERS. 


1$: 


MOV 


R3. 


(R2) + 


;PUT lUT INTO FIRST LOC OF BLOCK. 
;PUT 'RTS R5' FaLOWING lUT. 


2$: 


MOV 


M, 


(R2) 




JSR 


R5. 


-(R2) 


rGO EXECUTE THE lUT. 




MOV 


(R2)*-. 


Rl 


;GET THE DATA FROM THE MEM ADR UNDER TEST. 




CMP 


RO. 


Rl 


; COMPARE THE CHECK WORD WITH THE DATA READ. 




BEO 


65$ 




jBRANCH OVER ERROR CALL IF GOOD DATA. 


64S: 


JSR 


PC. 


SPRNT3 


; SET UP VALUES FOR ERROR PRINTING. 




JSR 


PC, 


$ERROR 


ERROR (GO TYPE A MESSAGE) 




.WORD 


21 




; ERROR TYPE CODE. 


65$: 










MOV 


R3. 


(R2)* 


;PUT THE lUT INTO THE NEXT LOCATION. 




BIT 


R5. 


R2 


; CHECK FOR END OF A BLOCK. 




BNE 


2$ 




;BRANCH IF MORE IN CURRENT BLOCK. 




JSR 


PC. 


MMUP 


.•FIND NEXT BLOCK AND LOOP TO 1$. 



C2QMCG0 MEMORY EXERCISER, 16K VER 

CZQMCG.P11 12-«AR-80 13:07 T23 



G 6 

«ACrl1 30A(1052) 12-^-80 13:10 PAGE 59-5^ 
EXECUTE DATI. DATOB (HIGH BYTE) THRU MEMORY. 



SEQ 007- 



7780 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
7781 
7782 
7783 
7784 
7785 
7786 
7787 
7788 
7789 
7790 
(2) 
(^) 
(4) 
(4) 
(2) 
7791 
7^-92 
(1) 
(1) 



012770 
012770 
012774 



013002 
013006 
013012 
013016 
013022 
013024 
013026 
013032 
013034 
013036 
013040 
013042 
013046 
013052 
013054 
01 3054 
013056 
015060 
CI 3062 



004567 
000003 



012703 
012704 
012700 
004467 
010322 
010412 
004562 
005302 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
030502 
001361 
004767 



005644 



012776 000167 000064 



110342 
000205 
161342 
001414 



1 77776 



005324 
006576 



002126 



TEST 23 EXECUTE DATI. DATOB (HIGH BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTION 'MOVB R3, -(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'MOVB* INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

110342 
000205 

110342 
000205 



ETC.. ETC., ETC. 

RO = DATA WRITTEN ON TOP OF lUT BY THE 

R1 = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF lUT/DATA. 

R3 = INSTRUCTION UNDER TEST (lUT). 

R4 = RTS R5 (CODE 205). 

R5 = BLOCK BOIWORY BIT MASK. 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

161342 
000205 

161342 
000205 



lUT (SHOULD BE). 



TST23: 



DID8H: 



1$: 
2$: 



64$: 
65$: 



JSR 


R5, 


$SCOPE 


.WORD 


3 




JMP 


TST24 




MOV 


#1 10342. R3 


MOV 


#205. 


R4 


MOV 


#161342. RO 


JSR 


R4. 


iHiim 


MOV 


R3. 


(R2)* 


MOV 


R4. 


(R2) 


JSR 


R5. 


-2(R2) 


DEC 


R2 




MOV 


(R2)+. 


R1 


CMP 


RO. 


Rl 


6EU 


65i 




JSR 


PC. 


SPRNT3 


JSR 


PC. 


$ERROR 


.WORD 


21 




MOV 


R3. 


(R2) + 


BIT 


R5. 


R2 


BNE 


2$ 




JSR 


PC. 


MMUP 



60 TO SCOPE ROUTINE. 

MINIMLfl BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'MOVB R3.-(R2)' INSTRUCTION (lUT). 
GET "RTS R5' 

SET <J> S/B DATA AFTER EXECUTION. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

PUT lUT INTO FIRST LOC OF BLOCK. 

PUT 'RTS R5' FOLLOWING lUT. 

GO EXECUTE THE lUT. 

ADJUST R2 TO POINT TO MAUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOCO DATA. 

SET UP VALUES FOR ERROR PRINTING. 

••• ERROR (GO TYPE A MESSAGE) 

ERROR TYPE CODE. 

PUT 1HE lUT INTO THE NEXT LOCATIOfv. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



CZQMCGO Q-^2^K MEMORY EXERCISER. 16K vER 
CZQMCG.P11 12-W-80 13:07 T2<. 



H 6 

MACrll 30A(1052) 12-f1AR-80 13:10 PAGE 59-5S 
EXECUTE DATI, DATIP. DATO THRU MEMORr. 



SEQ 007,' 



7820 
(5) 
«.) 
f4) 
«.) 
«,) 
(4) 
«.) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
f4) 
(4) 
(4) 
(3) 

(2) 013066 

(3) 013066 
(3) 013072 
(3) 
(3) 
(3) 

7821 013100 

7822 013104 

7823 013110 

7824 013114 

7825 013120 

7826 013122 

7827 013124 

7828 013126 

7829 013130 

(2) 013132 

(3) 013134 

(4) 013140 
(4) 013144 
(2) 013146 

7830 013146 

7831 013150 
(1) 013152 
(1) 013154 



004567 
000003 



012703 
012704 
012700 
004467 
010322 
010412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
030502 
001363 
004767 



005546 



013074 000167 000060 



005412 
000205 
172366 
001316 



005232 
006504 



002034 



TEST 24 EXECUTE DATI. DATIP. DATO THRU MEMORy. 

EXECUTES THE INSTRUCTION 'NEG (R2) ' THROUGHOUT MEMORr. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE 'NEG' INSTRUCTION TO RFTt>»N 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY : 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 

ETC.. ETC., ETC. 



INSTRUCTION 
PLACED THERE 

005412 
000205 

005412 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

1 72366 
000205 

1 72366 
000205 



RO = DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE), 
R1 = DATA READ FROM MEMORY (WAS). 
R2 = ADDRESS OF lUT/DATA. 

R3 = INSTRUCTION UNDER TEST (lUT). 
R4 - RTS R5 (CODE 205). 
R5 = BLOCK BOUNDRV BIT MASK. 
*************************************************************** 

TST24: 

GO TO SCOPE ROUTINE. 
MINIMUM BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'NEG (R2)' INSTRUCTION (lUT). 
GET 'RTS R5' 

SET UP S/8 DATA AFTER EXECUTION. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
PUT lUT INTO FIRST LOC OF BLOCK. 
PUT 'RTS R5* FOLLOWING lUT. 
GO EXECUTE THE lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 





JSR 


R5. 


$SCOPE 




.WORD 


3 






JMP 


TST25 




DIPDO: 


MOV 


#00541 2. R3 




MOV 


#205. 


R4 




MOV 


#1 72566.ro 




JSR 


R4. 


INITMM 


1$: 


MOV 


R3. 


(R2)> 


2$: 


MOV 


R4. 


(R2) 




JSR 


R5. 


-(R2) 




MOV 


(R2)+, 


Rl 




CMP 


RO, 


R1 




BEO 


65$ 




64$: 


JSR 


PC. 


SPRNT3 




JSR 


PC. 


$ERROR 




.WORD 


21 




65$: 










WDV 


R3. 


(R2)* 




BIT 


R5. 


R2 




BNE 


2$ 






JSR 


PC. 


MMUP 



CZQMCGO MEMORY EXERCISER. IbK VER 

C7QMCG.P11 12-W-80 13:07 T25 



I 6 

nACvll 30A(1052) 12-f1AR-80 13:10 PAGE 59-56 

EXECUTE DATI. DATI. DATIP. DATOB (LOW BYTE) THRU MEMORY. 



SEO 007' 



7857 

(3) 
(4) 
(4) 
«,) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 

(4; 

f4) 
i4) 
(4) 
(4) 
(4) 
(4) 
(4) 
f4) 
(4) 
(4) 
f4) 
(3) 

(2) 013160 

(3) 013160 
'3) 013164 
(3) 
(3) 
(3) 

7858 013172 

7859 013176 

7860 013202 

7861 013206 

7862 013212 

7863 013214 

7864 013216 

7865 013220 

7866 013222 

(2) 013224 

(3) 013226 
a) 013232 

(4) 013236 
(2) 013240 

7867 013240 
7P/8 013242 

. 013244 
'•) 013246 



004567 
000003 



012703 
012704 
012700 
004467 
010322 
010412 
004542 
012201 
020001 
001405 
004767 
004767 
000021 

010322 
030502 
001363 
004767 



005454 



013166 000167 000060 



142242 
000205 
142000 
001224 



005140 
006412 



001742 



TEST 25 EXECUTE DATI. DATI. DATIP. DATOB (LOW BYTE) THRU MEMOPv. 

EXECUTES THE INSTRUCTION BIC8 (R2)*.-(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5' (CODE 205) IS PLACED AFTER THE BICB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEWRY 

LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

142242 
000205 

142242 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

142000 
000205 

142000 
000205 



ETC.. ETC.. ETC. 

RO = DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE). 

R1 = DATA READ FROM MEMORY (WAS). 

R2 = ADDRESS OF lUT/DATA. 

R3 = INSTRUCTION UNDER TEST (lUT). 

R4 = RTS R5 (CODE 205). 

R5 = BLOCK BOUNORV BIT MASK. 



TST25: 



DPDBL: 



1$: 
2$: 



64$: 
65$: 



JSR 


R5, 


$SCOPE 


.WORD 


3 




JMP 


TST26 




MOV 


#142242,R3 


MOV 


*205. 


R4 


MOV 


#1 42000, RO 


JSR 


R4, 


INITMM 


MOV 


R3. 


(R2) + 


MOV 


M, 


(R2) 


JSR 


''Si 


-(R2) 


MOV 


(R2)*, 


R1 


CMP 


RO, 


R1 


BEQ 


65$ 




JSR 


PC. 


SPRNT3 


JSR 


PC. 


$ERROR 


.WORD 


21 




MOV 


R3, 


(R2)* 


BIT 


R5. 


R2 


8NE 


2$ 




JSR 


PC. 


MMUP 



;60 TO SCOPE ROUTINE. 
.MINIMUM BLOCK SIZE OF 2 WORDS 
; RE(JUIRED FOR THIS TEST. 

.•SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 
; AVAILABLE FOR TEST. 

.•GET BIC8 (R2)*.-(R2)' INSTRUCTION (lUT). 
"GET 'RTS R5' 

•SET UP S/B DATA AFTER EXECUTION. 
.-INITIALIZE THE MEMORY ADDRESS POINTERS. 
;PUT lUT INTO FIRST LOC OF BLOCK. 
;PUT 'RTS R5' FOLLOWING JUT. 
;G0 EXECUTE THE lUT. 

;GET THE DATA FROM THE MEM ADR UNDER TEST. 
.•COMPARE THE CHECK WORD WITH THE DATA READ. 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
;SET UP VALUES FOR ERROR PRINTING. 

ERROR (60 TYPE A MESSAGE) 
; ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



C2QMCG0 MEMORY EXERCISER, 16K VER 

CZQMCG.Pll 12-MAR-80 15:07 T26 

789<. 

(3) 
(4) 
(A) 
(A) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 

(2) 013252 TST26: 

(3) 013252 004567 
(3) 013256 000003 
(3) 
(3) 
(3) 

7895 013264 012703 

7896 013270 012704 

7897 013274 012700 

7898 013300 004467 

7899 013304 010322 

7900 013306 010412 

7901 013310 004542 

7902 013312 005302 

7903 01 33'. 4 012201 

7904 013316 020001 

(2) 013320 001405 

(3) 013322 004767 

(4) 013326 004767 
(4) 013332 000021 
(2) 013334 

7905 013334 010322 

7906 013336 030502 
(1) 013340 001362 
(1) 013342 004767 



J 6 

MACY11 30A(1052) 12-mR-80 13:10 PAGE 59-57 

EXECUTE DAT], DATI. DATIP. DAT08 (HIGH BYTE) THRU MEMORY. 



SEO 0074 



005362 



013260 000167 000062 



152212 
000205 
15721? 
001132 



005044 
006316 



001646 



TEST 26 EXECUTE DATI, DATI, DATIP, DATOB (HIGH BYTE) THRU MEMORY. 

EXECUTES THE INSTRUCTI(3N '8ISS (R2)*,(R2)' THROUGHOUT MEMORY. 
AN 'RTS R5* (CODE 205) IS PLACED AFTER THE 'BISB' INSTRUCTION TO RETURN 
CONTROL TO THE MAIN PROGRAM FOR INSTRUCTION EXECUTION CHECKOUT. 
THIS IS AN EXAMPLE OF WHAT THIS TEST DOES IN RELATION TO MEMORY: 



MEMORY 
LOCATION 

1ST PASS / 40000 
THRU TEST / 40002 

2ND PASS / 40002 
THRU TEST / 40004 



INSTRUCTION 
PLACED THERE 

152212 
000205 

152212 
000205 



CONTENTS OF MEMORY LOCATION 
AFTER INSTRUCTION EXECUTION 

157212 
000205 

157212 
000205 



RO 
R1 
R2 
R3 
R4 
R5 



ETC., ETC.. ETC. 

: DATA WRITTEN ON TOP OF lUT BY THE lUT (SHOULD BE) 

r DATA READ FROM MEMORY (WAS). 

= ADDRESS OF lUT/DATA. 

: INSTRUCTION UNDER TEST (lUT). 

= RTS R5 (CODE 205). 

= BLOCK BOUNDRY BIT MASK. 





JSR 


R5, 


SSCOPE 




.WORD 


3 






JMP 


TST27 




DPD8H: 


MOV 


#152212,R3 




MOV 


#205. 


R4 




MOV 


#157212,R0 




JSR 


M. 


INITMM 


1$: 


MOV 


R3. 


(R2)* 


2$: 


MOV 


R4, 


(R2) 




JSR 


R5, 


-(R2) 




DEC 


R2 






MOV 


(R2)*, 


R1 




CMP 


RO, 


Rl 




BEO 


65S 




64S: 


JSR 


PC. 


SPRNT3 




JSR 


PC. 


SERROR 




.WORD 


21 




65S: 










MOV 


R3. 


(R2)* 




BIT 


R5. 


R2 




8NE 


2$ 






JSR 


PC, 


MMUP 



GO TO SCOPE ROUTINE. 

MINIMLW BLOCK SIZE OF 2 WORDS 

REQUIRED FOR THIS TEST. 
SKIP TO NEXT TEST WHEN LESS THAN ONE BLOCK 

AVAILABLE FOR TEST. 
GET 'BISB (R2)*.(R2)' INSTRUCTION (lUT). 
GET 'RTS R5' 

SET UP S/B DATA AFTER EXECUTION. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

PUT lUT INTO FIRST LOC OF BLOCK. 

PUT 'RTS R5' FOLLOWING lUT. 

GO EXECUTE THE lUT. 

RESET R2 TO POINT TO lUT. 

GET THE DATA FROM THE MEM ADR UNDER TEST, 

COMPARE THE CHECK WORD WITH THE DATA READ. 

BRANCH OVER ERROR CALL IF GOOD DATA. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

PUT THE lUT INTO THE NEXT LOCATION. 
CHECK FOR EIJD OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND lOOP TO 1$. 



C2QWCG0 0-124K MEMORY EXERCISER. 16lC VER MACVll 30A(1052) 

CZQMCG.PIl 12-#1AR-80 13:07 SECTION 4:M0S TESTS 



K 6 

12-MAR-80 



13:10 PAGE 59-58 



7908 
7932 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
(3) 
(3) 
7933 
7934 
7935 
7936 
7937 
7938 
7939 
7940 
7941 
(2) 
(3) 
(4) 
(4) 
(2) 
7942 
7943 
7944 
7945 
(2) 
(3) 
(4) 
(4) 
(2) 
7946 
7947 
7948 
7949 
7950 



013346 
013346 
013352 
013354 
013360 
013364 
013366 
013372 
013374 
013376 
013400 
013402 
013404 
013406 
013412 
013416 
013420 
013420 
013422 
013424 
013426 
013430 
013432 
013436 
013442 
013444 
013444 
013446 
013450 
013452 
013456 



004567 
000000 
004467 
010267 
005003 
012700 
010022 
030502 
001375 
014201 
020001 
001405 
004767 
004767 
000010 

000300 
010012 
011201 
020001 
001405 
004767 
004767 
000010 

000300 
005703 
001403 
020327 
001010 



005266 

001056 
166230 

000377 



004764 
006232 



004740 
006206 



000003 



S8TTL SECTION 4:Mns TESTS 



•TEST 27 MARCHING 1'S AND O'S. 

• THIS TEST IS DESIGNED TO STRESS MOS MEMORIES. 

• STARTING AT THE BOTTOM ADDRESS AND ADDRESSING UPWARDS A 4»C BANK IS 

• WRITTEN WITH 000377. THEN STARTING AT THE TOP ADDRESS OF THE BANK THE 

• 000377 IS READ. THE BYTES ARE SWAPPED TO 177400 AND THE LOCATION 

• REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY LOCATION 

• ADDRESSED DOWNWARD UNTIL THE BOTTOM IS REACHED. STARTING AT THE 

• BOTTOM EACH LOCATION IS READ FOR 177400, THE BYTES ARE SWAPPED TO 

• 000377 AND REREAD TO CONFIRM THE WRITE UNTIL THE TOP ADDRESS OF THE 

• BANK IS REACHED. AGAIN STARTING AT THE BOTTOM EACH LOCATION IS READ 

• FOR 000377, THE BYTES SWAPPED TO 177400 AND THE LOCATION REREAD TO 

• CONFIRM THE WRITE. LASTLY STARTING FROM THE TOP AND ADDRESSING DOWN- 

• WARD EACH LOCATION IS READ, THE BYTES SWAPPED TO 000377 AND THE 

• LOCATION IS REREAD TO CONFIRM THE WRITE. THIS IS REPEATED FOR EVERY 
*4K BANK UNDER TEST. 

• RO=DATA WRITTEN INTO MEMORY (SHOULD BE) 

• R1=DATA READ FROM MEMORY (WAS) 

• R2=VIRTUAL ADDRESS 

• R3=TIMES THROUGH COUNTER 

• R4=N0T USED 

• R5=BL0CK BOUNDARY BIT MASK. 



TST27: 



IS: 



2$: 



3$: 



64S: 



65$: 
4S: 



66S: 



67$: 



JSR 


R5, 


$SCOPE 


.WORD 


0 




JSR 


M, 


INITMM 


MOV 


R2,TEMP 




CLR 


R3 




MOV 


#000377.R0 


MOV 


R0.(R2)* 


BIT 


R5,R2 




6NE 


2$ 




MOV 


-(R2).R1 


CMP 


RO. 


R1 


BEQ 


65$ 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


10 




SWAB 


RO 




MOV 


R0.(R2) 


.•WRITE 


MOV 


(R2),R1 


CMP 


RO. 


R1 


BEQ 


67i 




JSR 


PC. 


SPRNT2 


JSR 


PC. 


$ERROR 


.WORD 


10 




SWAB 


RO 




TST 


R3 




BEQ 


5$ 




CMP 


R3,#3 




BNE 


6$ 





60 TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE RECXJIRED THIS TEST. 

INITIALIZE THE MEMORY ADDRESS POINTERS. 

SAVE BANK STARTING ADDRESS 

CLEAR PASS COUNTER 

SETUP TO WRITE PATTERN 

WRITE PATTERN 

END OF 4K? 

CONTINUE WRITING IF NO. 
GET DATA WRITEN 

COMPARE THE CHECK WORD WITH THE DATA READ 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
**• ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

.•SWAP BYTES OF DATA 
>WAPPED WORD 
.-GET DATA WRITEN 

.•COMPARE THE CHECK WORD WITH THE DATA READ 
.•BRANCH OVER ERROR CALL IF GOOD DATA. 
.-SET UP VALUES FOR ERROR PRINTING. 

ERROR •** (60 TYPE A flESSAGE) 
.•ERROR TYPE CODE. 

PUT DATA BACK TO ORINGINAL 
IF ON PASS 0 OR PASS 3 
WE ARE ADDRESSING DOWN 
IF ON PASS 1 OR 2 GO TO 
UPWARD 
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SEQ 0076 



7951 
7952 
7953 
795A 
7955 
7956 
7957 
7958 
7959 
7960 
7%1 
7962 
(2) 
(3) 
(A) 
(A) 
(2) 
7963 
7964 
7965 
7966 
7967 
7968 
7969 
7970 
7971 
7972 
7985 
(3) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(3) 
(2) 
(3) 
(3) 
7986 
7987 
7988 
7989 
7990 
(1) 
(1) 
7991 
7992 
7993 
799A 
7995 
7996 



013A60 
01 3462 
013A6A 
013A66 
01 3A 72 
013A7A 
013A76 
013500 
01350A 
013506 
013510 
013512 
01351A 
013516 
013522 
013526 
013530 
013530 
013532 
01353A 
013536 
0135A2 
0135AA 
013550 
013552 
013556 



030502 




5$: 


BIT 


R5.R2 




;DONE A PASS? 


001 3A6 






BNE 


3$ 




;IF NO CONTINUE 


005203 






INC 


R3 




;IF YES INCREMENT PASS COUNTER 


022703 


000004 




CMP 


#A.R3 




.-ARE WE DONE ALL PASSES FOR THIS AK'' 


001A27 






BEO 


9$ 




;IF YES BRANCH 


000300 






SUAB 


RO 




.•ELSE SET UP NEW READ WORD 


OOO'.OA 






BR 


7$ 




;G0 TO START OF ADDRESS UP 


062702 


000002 


6S: 


ADO 


»2.R2 




.•UPDATE TO NEXT ADDRESS 


030502 




BIT 


R5,R2 




.■DONE A PASS 


001A11 






BEQ 


8S 




;IF YES BRANCH 


011201 




7S: 


MOV 


(R2).R1 




;GET DATA WRITTEN 


020001 






CMP 




R1 


; COMPARE THE CHECK WORD WITH THE DATA 


001 A05 






BEQ 


69$ 




.•BRANCH OVER ERROR CALL IF 6000 DATA. 


00A767 


00A65A 


68S: 


JSR 


PC. 


SPRNT2 


;SET UP VALUES FOR ERROR PRINTING. 


00A767 


006122 




JSR 


PC. 


$ERROR 


ERROR *** (GO TYPE A MESSAGE) 


000010 






.UORO 


10 




.•ERROR TYPE CODE. 






69$: 










000733 




BR 


A$ 






005203 




8S: 


INC 


R3 




.•INCREMENT PASS COUNTER 


000300 






SUAB 


RO 




;ScT UP NEW READ WORD 


020327 


000002 




CMP 


R3.#2 




.•ADDRESSING UP? 


001316 






BNE 


3$ 




:IF NO GO TO 0(Mi SEQUENCE 


016702 


1660AA 




MOV 


TEMP.R2 




;IF YES RESET ADDRESS TO START 


000757 






BR 


7$ 




;G0 TO UP SEQUENCE 


00AA67 


000660 


9$: 


JSR 


RA.INITMM 


.•INITIALIZE MEMORY ADDRESS POINTERS 


00A767 


001 A32 




JSR 


PC.MMUP 




.•UPDATE TO NEW BANK IF EXISTS 



013562 






TST30: 








013562 


004567 


005052 




JSR 


R5. 


$SCOPE 


013566 


000000 






.WORD 


0 




013570 


004467 


000642 




JSR 


R4. 


INITMM 


013574 


012700 


125252 




MOV 


#125252 .RO 


013600 


010022 




1$: 


MOV 


RO 


.(R2)-^ 


013602 


005100 






COM 


RO 




013604 


030502 






BIT 


R5. 


R2 


013606 


001374 






BNE 


1$ 




013610 


004767 


001400 




JSR 


PC. 


MMUP 


013614 


005003 






CLR 


R3 




013616 


012704 


000046 




MOV 


#46. 


R4 


013622 


005303 




2$: 


DEC 


R3 




013624 


001376 






BNE 


2$ 




013626 


005304 






DEC 


R4 




013630 


001374 






BNE 


2$ 





******** 4********************************** 

TEST 30 WRITE CHECKEK80ARD STARTING WITH '125252' DATA. 

THESE TESTS WRITE A CHECKERBOARD THROUGHOUT MEMORY. STALL 
FOR 2 SECONDS THEN CHECK PATTERN TO VERIFY DATA DID NOT 
DETERIORATE BETWEEN REFRESH CYCLES. 

RO=DATA WRITTEN INTO MEMORY (SHOULD BE) 
R1=DATA READ FROM MEMORY (WAS) 
R2=VIRTUAL ADDRESS 
R3=SMALL LOOP COUNTER FOR STALL 
R4=NIJ«BER OF TIMES SMALL LOOP DONE 
RS=eLOCK BOUNDARY BIT MASK. 
*************************************************************** 

;G0 TO SCOPE ROUTINE. 

;N0 MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
.•INITIALIZE THE MEMORY ADDRESS POINTERS. 
.•SETUP DATA PATTERN 
.•WRITE A WORD 
.•COMPLEMENT DATA 
; CHECK FOR E^JD OF A BLOCK. 
.•BRANCH IF MORE IN CURRENT BLOCK. 
;FIND NEXT BLOCK AND LOOP TO 1$. 
;SET UP COUNTER FOR STALL 
;D0 LOOP 46 TIMES OR c SEC. TOTAL. 



CZQMCGO 0-124K MEMOPr EXERCISER, 16K VER 
CZQMCG.Pll 12-«Afi-80 13:07 T30 



7997 
7998 
7999 
(1) 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 
8000 
8001 
(1) 
(1) 
8002 
(3) 
(3) 
(2) 
(3) 
(3) 
8003 
8004 
8005 
8006 
8007 
(1) 
(1) 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
(1) 
(2) 
(3) 
(4) 
(5) 
(5) 
(3) 
8017 
8018 
(1) 
(1) 



013632 
013636 
013642 
013642 
013644 
013646 
013650 
015654 
013660 
013662 
013662 
013664 
013666 
013670 



004467 000600 
012700 125252 

012201 
020001 
001405 

004767 004522 
004767 005770 
000006 

005100 
030502 
001365 

004767 001320 



013674 






013674 


004567 


004740 


013700 


000000 




013702 


004467 


000530 


013706 


012700 


052525 


013712 


010022 




013714 


005100 




013716 


030502 




013720 


001374 




013722 


004767 


001266 


013726 


005003 




013730 


012704 


000046 


013734 


005303 




013736 


001376 




013740 


005304 




013742 


001374 




013744 


004467 


000466 


013750 


012700 


052525 


013754 






013754 


012201 




013756 


020001 




013760 


001405 




013762 


004767 


004410 


013766 


004767 


005656 


013772 


000006 




013774 






013774 


005100 




013776 


030502 




014000 


001365 




014002 


004767 


001206 



3$: 

64S: 
65S: 



.••TEST 
TST31 



IS: 



2$: 

3$; 

64S: 
65S: 



n 6 
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CHECKERBOARD STARTIfgG WITH '125252' DATA. 



SEO 0077 



R4. INITW 
#1^5252. RO 



(R2)*. R1 
RO. R1 
65i 
PC. 
PC. 
6 



SPRNT2 
SERROR 



RO 
R3. 
3$ 
PC. 



R2 

MMUP 



.•INITIALIZE THE MEMORY ADDRESS POINTERS. 
;INIT DATA FOR CHECKING 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DmTA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 



CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO 1$. 



WRITE CHECKERBOARD STARTING WITH 052525 DATA 



R5. SSCOPE 

0 

R4. INITW 
#0^2525. RO 
RO. (R2)* 
RO 

R5. R2 
1S 

PC. HMUP 

R3 

#46. R4 

R3 

2$ 

R4 

2S 

R4. INITW 

/rO§2525,RO 

(R2)*. Rl 

RO. Rl 
65i 

PC. SPRNT2 

PC. SERROR 

6 



RO 
R5. 
3S 
PC. 



R2 

MMUP 



60 TO SCOPE ROUTINE. 

NO MINIMUM BLOCK SIZE REQUIRED THIS TEST. 
INITIALIZE THE MEMORY ADDRESS POINTERS. 
SETUP DATA PATTERN 
WRITE A WORD 

CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO IS. 
SET COLWTER FOR LOOP 
DO LOOP 46 ^IMES OK 2 SEC. TOTAL 



.•INITIALIZE THE MEMORY ADDRESS POINTERS. 
;INIT PATTERN FOR CHECKING 

GET THE DATA FROM MEMORY UNDER TEST. 
COMPARE THE CHECK WORD WITH THE DATA READ. 
BRANCH OVER ERROR CALL IF GOOD DATA. 
SET UP VALUES FOR ERROR PRINTING. 
*** ERROR *** (60 TYPE A MESSAGE) 
ERROR TYPE CODE. 



CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO IS. 



N 6 
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. 1 1 L 




RPi nrATF 




AMD RFPFAT Al 1 TF^T^ 

rim/ nCrC^I ^LL ICO 10. 






















1 1 / 




UV** JO' 


nn/.A?A 






J on 


R5. 


SSCOPE . 


■GO TO SCOPE ROUTINE. 


( 1 / 














0 




■NO MINIMIS BLOCK SIZE REQUIRED THIS TEST. 


OUcc 


U 1 hU I 




1 /^'>1 Sfl 
1 O J 1 J\J 




T^T^? • 

1 d 1 JC • 


tun 


STJMES 




•RESET ITERATION COUNTER FOR RESTARTING TEST. 






in«>fv.7 

1 \Jj\JOf 


1 O Jv JO 






n PR 


$TSTNM 




•RESET TEST NlfBER. 






nV.7A7 
UjO' O' 


1 OM J JC 


1 O J JVC 


1 1 • 




PRGMAP. 


SAVTST 


;CHECK IF PROGRAM IS IN TEST AREA. 


cue J 




onions 








RNF 


2$ 




:BR IF IT PROG IN MEM TO BE TESTED. 


OUcO 




nVi7^>7 


1 OH JHH 


1 O JH ' H 




RI T 


PRGMAP+2.SAVTST+2 .-CHECK H] 64K 




U 1 HUHc 


OOI^^S 

VA/ 1 H 










$EOP 




•BR IF PROG NOT IN MEM TO BE TESTED. 


OUcO 


014044 


0^?777 

vJC III 


noo?nn 


1 6Sn66 

1 O JvOO 


?$ ■ 


BIT 


#SW07. 


aswR 


•CHECK FOR INHIBIT RELOCATION SWITCH 






0010^1 






RNF 


$EOP 




•SKIP RELOCATION IF SWITCH SET. 


an "in 


0140S4 




000003 


164520 




CMP 


#3. 


PRGMAP 


; CHECK IF PROGRAM IN FIRST 8K. 


8031 


014062 


001013 








BNE 


4$ 




;BR IF NOT IN FIRST 8K. 


8032 


014064 


023737 


000042 


000046 




CMP 


a#42.a#46 


.•CHECK FOR ACT11 




01407? 


001416 










6S 




;BR IF ACT11. 




014074 


105737 


001224 






TST8 






; CHECK FOR APT11 


fi03S 


014100 


001013 








BNE 


6$ 




;IF APTll DO NOT RELOCATE 


8036 
















;MUST BE XXDP OR STANDALONE 


8037 


01410? 


004767 


00?362 






JSR 


PC. 


RELTOP 


.•RELOCATE PROGRAM TO TOP OF MEMORY. 


8038 


014106 


000167 


172002 




3$: 


JMP 


START1 




.•LOOP BACK AND RUN ALL TESTS AGAIN. 


8039 
8040 


014112 


00^767 


002754 




4$: 


JSR 


PC. 


RELO 


.'RELOCATE PROGRAM BACK TO FIRST 8K. 


8041 


014116 


005737 


000042 






TST 


a«42 




;TEST FOR XXDP 


8042 


014122 


001402 








BEO 


6S 




;IF NOT RUNNING UNDER MON. DONT 


8043 


014124 


004767 


003150 




5$: 


JSR 


PC. 


RESLDR 


.•RESTORE LOADERS. 


8044 


014130 








6$: 










(2) 


014130 


004567 


007366 






JSR 


R5. 


$PR]NT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


014134 


001201 








.WORD 


SCRLF 




.•ADDRESS OF MESSAGE TO BE TYPED 



CZQMCGO MEMORV EXERCISER. 16K VER 
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B 7 
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RELOCATE PROGRAM AND REPEAT ALL TESTS. 



SEO 0079 



8046 
I 



8047 
8048 
8049 
8050 
8051 
8052 
8053 



014136 
014136 
014140 
014144 
014150 
014156 
014160 
014162 
014164 
014166 
014170 
014172 
014176 
014200 



.S8TTL END OF PASS ROUTINE 

; •INCREMENT THE PASS NUMBER ($PASS) 

;»TyPE *tNO PASS #XXXXX*' (WHERE XXXXX IS A DECIMAL NUMBER) 
.*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN'T J\JV TO START1 



000240 
005067 
005267 
042767 
005327 
000001 
003040 
012737 
000001 
014160 
004567 
014270 
016746 



165024 
165042 
100000 



165034 



$E0P: 



SEOPCT: 



SENDCT: 



007324 
165006 



NOP 
CLR 
INC 
BIC 
DEC 
.WORD 
BGT 
MOV 
.WORD 
SEOPCT 
JSR 
.WORD 
MOV 



STIMES 
SPASS 

#1 00000, SPASS 

(PC)* 

1 

SDQAGN 

(PCJ+.a(PC)* 

1 



ZERO THE NUTQER OF ITERATIONS 
INCREMENT THE PASS NUPBER 
DON'T ALLOW A NEG. NIMBFR 
LOOP? 



;;YES 

; .-RESTORE COUNTER 



R5. 

SENDMG 

$PASS,-(SP) 



SPRINT 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
;ADDRESS OF MESSAGE TO BE TYPED 
''SAVE SPASS FOR TYF'EOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY **SYS«AC»*. 



014204 


013746 


1 77776 






MOV 


a*PSW. -(SP) 


PUT THE PROCESSOR STATUS ON THE STACK 


014210 


004767 


010226 






JSR 


PC. STYPOS ; 


GO TO THE SUBROUTINE 


014214 


004567 


007302 






JSR 


R5. SPRINT ; 


GO PRINT OUT THE FOLLOWING MESSAGE. 


014220 


014305 








.WORD 


SENULL 


ADDRESS Of MESSAGE TO BE TYPED 


014222 








SGET42: 








014222 


016700 


163614 






MOV 


42. RO 


;;6ET MONITOR ADDRESS 


014226 


001416 








BEQ 


SDQAGN 


.■BRANCH IF NO MONITOR 


014230 


000005 








RESET 




.•CLEAR THE WORLD 


014232 


004710 






SENDAD: 


JSR 


PC.(RO) ; 


;G0 TO MONITOR 


014234 


000240 








NOP 




.SAVE ROOM 


014236 


000240 








NOP 




.FOR 


014240 


000240 








NOP 




;ACT11 


014242 


023737 


000042 


000046 




CMP 


a#42.ar46 ; 


;ARE WE UNDER ACT11 OR XXDP 


014250 


001405 








BEQ 


SDQAGN 


;IF AC Til THEN RESTART 


014252 


105737 


001224 






TST8 


anENv 


.•CHECK FOR APT 11 


014256 


001002 








BNE 


SDQAGN 


;IF APTll THEN RESTART 


014260 


004767 


003074 






JSR 


PC. SAVLDR ; 


;IF XXDP FIRST SAVE MONITOR 


014264 








SDQAGN: 






014264 


000167 


171624 






JMP 


START 1 




014270 


005015 


047105 


020104 


SENDMG: 


.ASCI 2 


<15><12>/END PASS #/ 


014276 


040520 


051523 


021440 










014304 


000 














014305 


377 


377 


000 


SENULL : 


.BYTE 


-1.-1,0 


.-NULL CHARACTER STRING 



S8TTL SUBROUTINE AND TRAP ROUTINE SECTION. 
S8TTL MEMORY MANAGEMENT AND ADDRESSING SUBROUTINES. 
• •••*******♦****•****♦*****«***••••••»••••••»»•*•»•••»•••»•»•••• 

• SET UP ALL THE MEM HGMT REGISTERS FOR NORMAL OPERATION. 

• THE PROGRAM IS POINTED TO BY PARS 0 AND 1 . 

• THE MEMORY UNDER TEST IS POINTED TO BY PARS 2 AND 3. 

• THE DEVICE ADDRESS AREA IS POINTED TO BY PAR 7. 
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SEQ 0080 



805«. 
8055 
8056 
(1) 
8057 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 
8074 
8075 
8076 
8077 
8078 
8079 
8080 
8081 
8082 
8083 
8064 
8085 
8086 
8087 
8088 
8089 
8090 
8091 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 



;* PARS 4. 5, AND 6 ARE UNUSED. 



0H310 
014310 
014316 
014324 
014332 
014340 
014344 
014350 
014354 
014362 
014366 
014374 
014400 
014404 
014410 
014414 
014420 
014426 
014434 



012737 
012737 
012737 
012737 
005037 
005037 
005037 
012737 
005037 
012737 
005037 
005037 
005037 
005037 
005037 
012737 
012737 
000207 



077406 
077406 
077406 
077406 
172310 
172312 
172314 
077406 
172340 
000200 
172344 
172346 
172350 
172352 
172354 
007600 
000001 



172300 
172302 
172304 
172306 



172316 
172342 



1 72356 
177572 



MMINIT: 



MOV #200-1 *400*UP*RW.a#KIPDR0 

MOV #200-1 *400*UP*RW,a#KIPDR1 

MOV #200-1 *400*UP*RW,a#KIPDR2 

MOV #200-1 *400*UP*RW.a#KIPDR3 

CLR a#KIPDR4 

CLR a#KIPDR5 

CLR a#KIPDR6 

MOV #200-1 *400+UP+RW. 

CLR MTKIPARO 

MOV #200, a#IClPAR1 

CLR a#KIPAR2 

CLR a#KiPAR3 

CLR a«KIPAR4 

CLR a«KIPAR5 

CLR a#KlPAR6 

MOV #7600. a#KIPAR7 

MOV #1 , a#SR0 

RTS PC 



a#KIPDR7 

MAP PARC INTO 

MAP PARI INTO 

MAP PAR2 INTO 



SET KJPDRO 
SET KIPDRI 
SET KIPDR2 
SET ICIPDR3 



;SET ICIPDR7 
BANKO 
BANKl 
BANKO 



RW JP 200 BLOCKS 
RU UP 200 BLOCKS 
RU UP 200 BLOCKS 
RW UP 200 BLOCKS 



= RW UP 200 BLOCKS 



MAP PAR7 INTO 
ENABLE MEMORY 
RETURN 



I/O BANK 
MANAGEMENT 



014436 


012767 


000001 


165100* 


'iNITMM: 


MOV 


#Biro. 1 


014444 


005067 


165076 






CLR 


BITPT*2 


014450 


005002 








CLP 


R2 


014452 


016705 


165130 






MOV 


BLK^K. 


014456 


005767 


164124 






TST 


MM<VVA 


014462 


001514 








BEQ 


10$ 


014464 


005037 


172344 






CLR 


airKIPAR2 


014470 


012702 


040000 






MOV 


#40000. 


014474 


036767 


165044 


165026 


1$: 


BIT 


BITPT, 


014502 


001015 








BNE 


2S 


014504 


036767 


165036 


165020 




BIT 


BITPT+2. 


014512 


001011 








BNE 


2$ 


014514 


062737 


000200 


172344 




ADD 


#200. 


014522 


006367 


165016 






ASL 


BJTPT 


014526 


006167 


165014 






ROL 


BITPT+2 


014532 


100360 








BPL 


1$ 


014534 


000000 








HALT 




014536 


036767 


165002 


165036 


2$: 


BIT 


BITPT. 


014544 


001004 








BNE 


3$ 


014546 


036767 


164774 


165030 




BIT 


aiTPT+2. 


014554 


001405 








BEO 


4S 


014556 


016705 


165016 




3$: 


MOV 


LADflSK. 


014562 


042767 


020000 


165006 




61 C 


#20000, 


014570 


013737 


172344 


172346 


4$: 


MOV 


a#KIPAR2 


014576 


016767 


164742 


164744 




MOV 


BITPT, 


014604 


016767 


164736 


164740 




MOV 


BJTPT+2, 


014612 


032705 


020000 






BIT 


#8IT13. 


014616 


001 505 








BEQ 


21$ 


014620 


062737 


000200 


172346 


5S: 


ADD 


#200, 


014626 


006367 


164716 






ASL 


TMPPT 



MEMORY ADDRESS POINTER INITIALIZATION ROUTINES. 

; *************************************************************** 



BITPT 



R5 



R2 

TSTMAP 



THIRD PAR. 
TO NEXT BAi^K. 



;SET POINTER TO BANKO 
.-CLEAR HI 64K BANK POINTERS 
;SET ADDRESS POINTER TO 0 
.•RESET R5 TO BLOCK MASK. 
.•CHECK FOR MEM MGMT AVAILABLE 
.-BRANCH IF NO MEM MGMT 
.-SET UP 3RD PAR TO BANKO 
.•RESET VIRTUAL ADR POINTER 
.•CHECK IF THIS BANK TO BE TESTED 
.•BRANCH IF MATCH 

.•CHECK IN HI MAP 
.•BRANCH IF MATCH 
a#KIPAR2 .-UPDATE MEM MGMT. 

.-UPDATE LO POINTER 
;...HI POINTER. 
'8R IF MORE 
.-FATAL ERROR.'!! N0'4K BANK FOUND? 
LADMAP .-CHECK IF LAST BANK. 

;BR IF LAST BANK. 
LAD«AP>2 .-CHECK IF LAST BANK. 

;8R IF NOT LAST BANK. 
R5 .-SET MASK TO FIND LAST ADR. 

TMPLAD ;MAKE SURE VIRTUAL LAST ADR IN BANK 
,a#KIPAR3 .-COPY CURRENT PAR INTO FORTH PAR. 
TMPPT .COPY BITPT... LO 64K. 
TMPPT+2 ;...HI 64K. 

R5 .-CHECK FOR A BLOCK SIZE OF 8K. 

.-BRANCH IF NOT 8K. 
a#KlPAR3 .-UP DATE FORTH PAR. 

.-UPDATE LO POINTER TO NEXT 4K BANK. 
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see 0081 



8109 


01 4632 


AAZ 1 Z. 7 

00616'' 


1 ^/ 71 y 

164f 14 






DAI 

ROL 


ollO 


0 *h656 












O M 1 


0 ih6*»0 


036 /'o/' 


1 A/ 7A/ 

164r04 


1 Ay AAO 

16466c 




D I T 


01 1 ^ 

OlV 


01*16*16 


AA1 AAy 








atit. 


81 1 5 


AI / Z. CA 

014650 


056^6^ 


1 ^ / A 7A 

1646^6 


1 / y AC/ 
164634 




D f T 

□I 1 


OMh 


Ol*»o>o 


AA1 7^A 
001 f 60 










01 1 J 


Ul*»ooO 


A7A7iL7 

036^6/^ 


1 A/ AAA 

164664 


1 AA 71 A 

1 0*1 r 1 •1 


AC' 

6»: 


PIT 


01 10 


Ui*»ooo 


AA1 AA/. 

001 UUh 








OlMt 


811 f 


A1 / ^7A 


A7iL.7i:.7 

036^6^ 


1 Ay ACA 

164636 


1 AA7AA 

164/06 




BIT 

dJ 1 


Olio 


AI / iL.7Z. 

OImo/^o 


AA1 / CC 
001<t J J 










B1 1 Q 

01 IV 


A1 / 7riA 


A1 A7AC 

01 6' 03 


1 A/ A 7/ 




7C • 


MOV/ 


01 OA 

OltfO 


AI / 7Ay 


AC07A7 

03cr6r 


AOAAAA 

OcOOOO 


1 A/ AAA 
IOhOOh 




QIC 
DiO 


81 cl 


A1/ 71 O 


rt/W A7 








QD 

on 


fii 00 
Ol dd 














B1 OT 

81c J 


A1 / 71 / 
Ul*lf 1*» 


A7iL.7A7 
036^6^ 


1 A/ A3A 

1 646c4 


1 A/ AAA 

1 OhOOC 


1 AC • 

I0«: 


D T T 


01 


AI / 700 


AA1 AAA 

001006 








DiMt 


01^ J 


AI / 70/ 


AA07AO 


AOAAAA 
OfOOOU 






nVV 


fl1 OiL 
01 £0 




1 AA7A7 


1 AAA1 A 
IOhO 10 






aci q 


01 


rt1/.77Z. 


1 AA7A7 










01 7B 

01 cO 


mz7'XA 
Ul*i^ JO 


AAAAAA 
000000 








UAI T 


fii 90 

01 cV 




ni A7A7 


1 AAAnn 

IO*tOOO 


1 AAAn3 
IO*fO\yc 


11C> 


nuv 


BI XtS 

01 3U 


AI / 7/ A 


A7it.7A7 


1 AAC73 


1 AAA3A 
1 OhOcO 




ni T 
oi 1 


fli 71 

0 1 J 1 


A1Z.7CZ. 


AAI A31 










fli 70 

0 \Dd 


A1Z.7CA 
U ihlbO 


n737nc 

03c' U3 








Q I T 


fl1 77 

01 bb 




AA1 / 37 
00 I*»c3 








ocu 


fli 7/. 
0 1 J*» 


A1/.7A/. 


inA7A7 
IU030r 


I0*»30U 






MoLO 


fli 7C 

0 1 JJ 


A1Z.77n 


inn/.i A 








DMI 

Brli 


fli 7A 
0 1 


niZ.775 


n7A7A7 


1 A/CC3 


1 AAC7n 




BIT 


fli 77 

0 1 jf 


m cnnn 
u 1 jUUU 


AA1 AI 3 
00 l*» Ic 








BPA 
OCU 


fli Tfi 

0 1 X 


ni CAA5 


1 1 37A7 


nnnni 1 

UvAAy 1 1 


1 AACA7 
1 Oh j*t f 




nuvD 


fli 7Q 

01 jV 


AI CA1 A 


A7A7A7 


1 AAC7A 


1 AACAA 
1 0*» 30*» 




BIT 
Oi 1 


fli/n 
01 mU 


AI CA1 A 


AAI AA7 








BCA 

ocu 


fl1Z.1 

0 Im 1 


AI cnon 


AI A7nc 
U lOf U3 


1 AACCA 
1 OM33H 




1 3* - 
1 c* ■ 


Mn\y 
nuv 


fli/.0 
01*»c 


AI CA5A 


nnnAft3 








BP 
OK 


fllZ.7 
01 H J 


AI CA7A 


ni 37nc 

0 1 c ' U3 


ni 7777 




3nt • 


Mnu 
nuv 




m <n79 


nCA7A7 
U30f Of 


1 AACOA 
1 Os jUO 


1 AA C 1 n 


C I*. 


nrc 

Oid 


fli AC 


AI c(v.n 


nCA7A7 
03Of Of 


1 AACn? 
IO*»3Uc 


1 AACnA 




arc 

Di 0 


fl1 

0 ImO 


AI CAAA 


nTA7A7 


1AAA73 


1AAC1 A 




PIT 
Oi 1 


fli/ 7 


rtl CrtCA 










BMP 


fli Afl 
0 IhO 


AI CACA 


n7A7A7 


1 fxLLfJ. 
1 Om*»0*» 


1 AACnA 
1 0*»3U0 




BIT 
Oi 1 


fl1Z.O 




nni Acn 








BP A 
OCU 


fli 

0 1 jU 


AI CAAA 


ni A7n3 


1 AAA73 




33t • 

cc». 


MAU 
rWV 


fli CI 

0 1 J 1 


AI cn73 


nnnAAC 

0UUh*»3 








BO 


fl1 C9 

0 1 JC. 














fl1 C7 

0 1 J J 


ni cn7z. 


ni A7nc 

U 1 O' U3 


lAACnA 
IO*t3UO 




TKII TrtKI- 

irti wn. 


nuv 


fl1 cz. 


ni cinn 


nncnn3 










fli cc 


AI CI AP 


KAJJ 1 Or 


lA^COO 
IOjjW 






TCT 


fl1 CA 
0 1 30 




nni AI 1 








BP A 
OCU 


fli C7 
0 1 5f 


ni CI in 


ni P7A7 


innnnn 


1 AAATn 




Mnu 
nuv 


fli Cfl 

01 J0 


AI C1 1 A 


AncnA7 


1 AAA33 






ri 0 


81 S9 




01 P737 


007600 


1 72344 




MOV 


8160 


015130 


000403 








BR 


8161 














8162 


01513? 


012767 


000400 


164404 


31$: 


MOV 


8163 


015K0 


012767 


015162 


164406 


32$: 


MOV 


816A 


015U6 


066767 


163426 


164400 




ADD 



TMPPT*2 
20$ 

TMPPT, TSTMAP 
6$ 

TMPPT*2.TSTHAP*2 
5$ 

TMPPT. LADHAP 
7$ 

TMPPT*2.LADMAP*2 
21$ 

LADMSK. R5 
#20000. TMPLAD 
21$ 



;...HI POINTER. 
;BR IF NO MORE. 
.•CHECK If BANK TO BE TESTED. 
.•BRANCH IF A MATCH. 

.•CHECK FOR HI 64K BANKS. 
.•BRANCH IF NO MEMORY 
.•CHECK IF LAST BANK. 
.•BRANCH IF A MATCH 

.•CHECK HI 64K 
;BR IF NOT LAST BANK. 
.•RESET MASK TO FIND LAST ADR. 
.•MAKE SURE LAST ADDRESS IS IN BANK 3. 
;BR TO FINISH UP. 



TSTMAP 



BITPT. 
11$ 

#20000. R2 
BITPT 
10$ 



BITPT. TMPPT 
BITPT, LADMAP 



12$ 

#8IT13, 
21$ 
TMPPT 
20$ 
TMPPT, 
20$ 
#11, 
TMPPT, 
20$ 

LADMSK. R5 
21$ 

«mSK4K,R5 
BITPT, TMPPT 
BITPT*2,TMPPT*2 
BITPT. FADMAP 
22$ 



.•CHECK IF THIS BANK TO BE TESTED. 
;BR IF MATCH. 

.•UPDATE PHYSICAL ADR PNTR TO NEXT BANK. 
.•UPDATE BANK POINTER TO NEXT BANK. 
;8fi IF MORE BANKS. 
.•FATAL ERROR!!! NO 4K BANK FOUND? 
.-COPY BANK POINTER. 
.•CHECK IF LAST BANK. 
;8R IF LAST BANK. 
.•CHECK FOR 8K BLOCK SIZE. 
.•BRANCH IF SMALLER BLOCK SIZE. 
.•POINT TO NEXT BANK. 
.•BRANCH IF OVERFLOW. 
.•CHECK IF BANK TO BE TESTED. 
.•BRANCH IF NOT TO BE TESTED. 
;SET 8K BLOCK SIZE FLAG. 
.•CHECK FOR LAST BANK. 
.•BR IF NOT LAST BANK. 
.•RESET MASK TO FIND LAST ADR. 
;SKIP MASK RESET. 
.•RESET MASK TO 4K BLOCK SIZE. 
.-SET TMPPT FOR FLAGING LAST BaNK. 



R5 



TSTMAP 

FLAG8K 
LADMAP 



.•CHECK IF FIRST ADDRESS NEEDS 10 BE SET. 
;BR IF FIRST BANK. 
BITPT+2,FADMAP*2 ; check HI 64K. 
INI TEX ;BR IF NOT FIRST BANK. 

TMPFAD, R2 .-RESET ADDRESS POINTER TO FIRST ADR. 

INI TEX 

BLKMSK, R5 ;RESET R5 TO CURRENT BLOCK MASK. 

R2 ;INIT ADDRESS POINTER. 

MMAVA ; CHECK FOR MEM MGMT 

31$ ;8RANCH IF NO MEM MGMT 

#BIT15, BITPT+2 ;SET POINTER TO TOP BIT 

BITPT 

#7600. a#KIPAR2 .-SET PAR TO TOP OF MEM 
32$ .-BRANCH TO COMMON AREA 



#8IT8, BITPT 
#33$. MMOPE 
RELOCF. MMORE 



;SET UP BANK POINTER 

.SET 'MMDOWN" EXIT ADDRESS. 

.-ADD OFFSET 
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SfO 008? 



8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 

8181 

8182 

8183 

8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 

8196 

8197 

8198 

8199 

8200 

8201 

8202 

8203 

8204 

8205 

8206 

8207 

8206 

8209 

8210 

8211 

8212 

8213 

8214 

8215 

8216 

8217 

8218 

8219 

8220 



015154 
015160 
015162 
015170 
015172 
015200 
015202 
015206 
015212 



004767 
000000 
036767 
001004 
036767 
001402 
016702 
010467 
000204 



000524 

164356 

164350 

164366 
164342 



164412 
164404 



33$: 



34$: 
INITEX: 



JSR PC, HHDOUN .-ROUTINE TO SEARCH OOUNUARD FOR 'OP MEM BANK 

HALT .-FATAL ERROR!!! NO MEM INDICATED IN MEM MAP ABOvE 8k 

BIT BITPT, LADMAP ;CHECK FOR NON BOUNORY LAST ADDR. 

BNE 34$ .-BR IF LAST BANK FLAG FOUND. 

BIT BITPT+2.LADnAP*2 .-CHECK FOR NON BOW«RV LAST ADDR. 

BEO INITEX ;BR IF NO LAD FLG FOUND. 

MOV LSTADR. R2 ;SET UP R2. 

MOV R4, HMORE ;PUT RETURN PC INTO 'm)RE"' 

RTS R4 .-RETURN 





\j5oror 


1 xy TTA 

164330 


1 Ay 7A.A 
1 64 560 


■MM ID • 

mUr : 


D T T 
Di T 


01 5222 


0011 22 








oNc 


A1 CO")/ 




1 JL/ 700 


1 A./ 7C 0 




D 1 T 




AA1 1 1iL 

001 1 lo 








DlLlC 


Ai c "^Ty 

0o<:34 


A1 ^7AC 

016/^05 


1 iL.y 7y ^ 
164346 






PIUV 


Ai coy A 




16334^ 






TCT 


A1 CiJ J 

01 D^44 


AA1 C1 C 

001 Jl J 








DC A 


rti coy 


A1 07A0 


Ay AAAA 






MA\/ 


A1 COCO 


AiL0777 


AAAOAA 

OOOcUO 


1 707/ /. 

1 f c3»»*» 


1 » : 




A1 COA/\ 

01 JcofJ 


AA^7i^7 


1 iiy OiLA 






ACI 


A1 COiC/ 

01 1<:64 


AA^1 iL7 

00616' 


iAy OCA 

IO*»£ JO 






DAI 


01 j^/\J 


1 AAC77 








DM T 


01 JCf C 


A^X.7A7 




1 AZ.57n 




BIT 
Oi 1 


AI C VkA 

01 5500 


AA1 AAy 

001004 










01)30c 


{jJOfOf 


104£4U 






DI T 


Ai CXI A 

015310 


001 ' oO 








DC A 


AI C71 5 

01 531 c 


A'Ci;7A7 
[JjOfOf 






£*: 


DI T 
Di 1 


AI C10O 

01 53cU 


AA1 A/V. 

001004 












yjjO'Of 


lOHcCw 


1 DHc J** 




Rf T 


015330 


001405 








BEQ 


015332 


016705 


164242 




3$: 


MOV 


015336 


042767 


020000 


164232 




6IC 


015344 


016767 


164174 


164176 


4$: 


MOV 


015352 


016767 


164170 


164172 




MOV 


015360 


032705 


020000 






BIT 


015364 


001530 








BEO 


015366 


013737 


172344 


172346 




MOV 


015374 


062737 


000200 


172346 


5$: 


ADD 


015402 


006367 


164142 






ASL 


015406 


006167 


164140 






ROL 


015412 


100513 








BMI 


015414 


036767 


164130 


164106 


6$: 


BIT 


015422 


001004 








BNE 


015424 


036767 


164122 


164100 




BIT 


015432 


001760 








BEQ 


015434 


036767 


164110 


164140 


7$: 


BIT 


015442 


001004 








BNE 


015444 


036767 


164102 


164132 




BIT 


015452 


001475 








BEO 


015454 


016705 


164120 




8$: 


MOV 



COMMON UPWARDS ADDRESSING ROUTINE 

FINDS NEXT EXISTING 4K BANK AND UPDATES POINTERS. 

GOES TO ADDRESS IN 'WORE" IF MORE BANKS. 

DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 

TMPPT. LADMAP ; CHECK FOR LAST BANK FLAG. 
10$ *BR IF LAST BANK. 

TMPPT +2. LAD«AP*2' .-CHECK FDR LAST'bANK FLAG. 
10$ :BR IF LAST BANK. 

BLKMSK. R5 .-RESET R5 TO BLOCK MASK. 

MMAVA .-CHECK FOR MEM MGMT AVAILABLE 

20$ .-BRANCH IF NO MEM MGMT 

#40000. R2 .RESET VIRTUAL ADR POINTER 

#200. a#KIPAR2 .-UPDATE MEM MGMT. THIRD PAR. 
BITPT .-UPDATE LO POINTER TO NEXT BANK. 

BITPT*2 ;...HI POINTER. 

32$ .BR IF ALL DONE. 

BITPT, TSTMAP .-CHECK IF THIS BANK EXISTS 
2$ .BRANCH IF MATCH 

BITPT*2,TSTMAP*2 ; CHECK IN HI HAP 
IS .-BRANCH IF NO MATCH 

BITPT, LADMAP .'CHECK FOR LAST BANK FLAG. 
3$ .-BRANCH IF LAST BANK FLAG. 

BITPT*2.LADMAP*2 .-CHECK IF LAST BANK FLAG. 
4$ ;8R IF NOT LAST BANK. 

LADMSK, R5 .-RESET MASK. 

#20000. TMPLAD .-MAKE SURE VIRTUAL LAST ADR IN BANK 2 
BITPT, TMPPT .-COPY BITPT... LO 64K. 
BITPT +2, TMPPT +2 .-...HI 64K. 

#8IT13, R5 .-CHECK FOR A BLOCK SIZE OF 8K. 

31$ ;BRANCH IF NOT. 

a«ClPAR2,a#KIPAR3 .-COPY CURRENT PAR INTO FORTH PAR. 
#200, a#KIPAR3 ;UP DATE FORTH PAR. 
TMPPT .-UPDATE LO POINTER TO NEXT 4K BANK. 

TMPPT+2 ;...HI POINTER. 

30$ ;BR IF NO MORE. 

TMPPT. TSTMAP .-CHECK IF BANK TO BE TESTED. 
7$ .-BRANCH IF A MATCH. 

TMPPT*2.TSTMAP*2 .CHECK FOR HI 64K BANKS. 
5$ .-BRANCH IF NO MEMORY 

TMPPT. LADMAP .-CHECK FOR LAST BANK FLAG. 
8$ .-BRANCH IF A MATCH 

TMPPT+2.LADMAP+2 ; CHECK HI 64K 
31$ .-BR IF NO LAST BANK FLAG. 

LADMSK. RS .-RESET MASK TO FIND LAST ADDRESS. 
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EQ 0083 



8221 


015460 


052767 


020000 


8222 


015466 


000467 




8223 








8224 


01 5470 


026702 


164102 


8225 


015474 


001064 




8226 


015476 


000474 




8227 








8228 


015500 


106267 


164053 


8229 


015504 


001407 




8230 


015506 


103455 




8231 


015510 


105067 


164043 


8232 


015514 


162702 


040000 


8233 


015520 


062702 


020000 


8234 


015524 


106367 


164014 


8235 


015530 


100457 




8236 


015532 


036767 


164006 


8237 


015540 


001767 




8238 


015542 


036767 


163776 


8239 


015550 


001402 




8240 


015552 


016705 


164022 


8241 


015556 


016767 


163762 


8242 


015564 


032705 


020000 


8243 


015570 


001426 




8244 


015572 


106367 


163752 


8245 


015576 


100421 




8246 


015600 


036767 


163744 


8247 


015606 


001415 




8248 


015610 


036767 


1 63730 


8249 


015616 


112767 


000011 


8250 


015624 


036767 


163714 


8251 


01 5632 


001403 




8252 


015634 


016705 


163740 


8253 


Ol 5640 


000402 




8254 


015642 


012705 


M« ^^^^ 

017777 


8255 


015646 


056767 


163672 


8256 


015654 


056767 


163666 


8257 


015662 


016716 


163666 


8258 


015666 


000207 




8259 








8260 


/\4 

01 5670 


005767 


164402 


8261 


Ol 5674 


001402 




8262 


01 5676 


004767 


001 744 


8263 


015702 


000207 




8264 








8265 








8266 








8267 








8268 








8269 








8270 














1 o3o54 


B27? 


015712 


001004 




8273 


015714 


036767 


165626 


8274 


015722 


001404 




8275 


015724 


026702 


163634 


8276 


015730 


001052 





164110 BIS #20000. TMPLAD 

BR 31$ 

10$: CMP TMPLAD, R2 

BNE 31$ 

BR 32$ 

20$: ASRB FLA68K 

BEQ 22$ 

BCS 30$ 

CLR8 FLAG8IC 

SUB #40000. R2 

21$: ADD #20000. R2 

22$: ASL8 BI^PT 

BMI 32$ 

163770 BIT BITPT. TSTMAP 

BEQ 21$ 

164032 BIT BITPT. LADMAP 

BEQ 23$ 

MOV LADMSK. R5 

163764 23$: MOV BITPT. TMPPT 

BIT #8ITM, R5 

BEQ 31$ 

ASL8 TMPPT 

BMI 30$ 

163722 BIT TMPPT. TSTMAP 

BEQ 30$ 

163764 BIT BITPT. LADMAP 

163733 M0V8 #11, FLAG8K 

163750 BIT BITPT, LADMAP 

BEQ 30$ 

MOV LADMSK. R5 

BR 31$ 

30$: MOV #mSlC4K,R5 

31$: BIS BITPT, TMPPT 

BIS BITPT*2,TMPPT*2 

MOV MMORE. (SP) 

RTS PC 
BEFORE FINAL EXIT, CHECK ^OR 

32$: TST MPRX 

BEO 33$ 

JSR PC. CKPMER 

^3$: RTS PC 



163674 
163670 



.-SET VIRTUAL ADR TO BANK 3. 



CHECK IF LAST ADR REACHED. 

BR IF MORE. 

BR IF ALL DONE. 

SHIFT 8K FLAG 
BR IF NOT 8K BLOCK. 
BR IF ANOTHER 4K. 
CLEAR OUT ALL FLAGS. 
BACK UP 8K. 

UPDATE PHYSICAL ADR PNTR ^0 NEX^ BANK. 

UPDATE POINTER. 

BRANCH WHEN END IS REACHED. 

CHECK IF THIS BANK EXISTS. 

BRANCH IF NO MATCH. 

CHECK FOR LAST BANK FLAG. 

BR IF NO MATCH. 

RESET MASK TO FIND LAST ADR. 

SET UP TMP POINTER. 

CHECK FOR 8K BLOCK SIZE. 

BRANCH IF SMALLER BLOCK SIZE. 

POINT TO NEXT BANK. 

BRANCH IF OVERFLOW. 

CHECK IF BANK TO BE TESTED. 

BRANCH IF NOT TO BE TESTED. 

CHECK FOR LAST BANK FLAG. 

SET 8K BLOCK FLAG. 

CHECK FOR LAST BANK FLAG. 

BR IF NO FLAG. 

RESET MASK TOFIND LAST ADR. 

SET MASK TO 4K. 

SET TMPPT FOR FINDING LAST ADR. 

FUDGE RETURN ADDRESS TO LOOP. 
RETURN 

ANY NON-TRAP PARITY ERRORS. 

CHECK FOR ANY PARITY REGISTERS PRESENT. 

BR IF NONE. 

CHECK FOR PARITY MEMORY ERRORS. 
STRAIGHT RETURN. 



163656 
163650 



* MEMORY DOUNyARDS ADDRESSING SUBROUTINE. 

• FINDS NEXT LOWER 4K BANK AND UPDATES POINTERS. 

* GOES TO ADDRESS IN 'WORE" IF MORE BANKS. 

• DOES STRAIGHT EXIT WHEN ALL MEMORY HAS BEEN DONE. 
■**••*****•**********•*•***********«•*****•***•**•**••*••••••••• 

MMDOWN: BIT BITPT. FADMAP ;CHE(K FOR FIRST ADR FLAG. 

BNE 1$ ;BR ]F FIRST ADR IN THIS BANK. 

BIT BITPT+2,FADMAP*2 ;CHfCK FOR FIRST ADR FLAG. 

BEO 2$ ;BR IF NO FLAG 

1$: CMP TMPFAD, R2 ;CHECK IF FIRST ADDRESS REACHED. 

BNE 9$ ;8R IF MORE. 
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8277 015732 000453 BR 

8278 01573A 005767 162646 21: TST 

8279 015740 001425 BEQ 

8280 015742 162737 000200 172344 3t: SUB 

8281 015750 006067 163572 ROR 

8282 015754 006067 163564 ROR 

8283 015760 103440 BCS 

8284 015762 036767 163556 163540 BIT 

8285 015770 001004 BNE 

8286 015772 036767 163550 163532 BiT 

8287 016000 001760 BEQ 

8288 016002 012702 060000 4S: MOV 

8289 016006 000411 BR 

8290 016010 162702 020000 5S: Sl« 

8291 016014 006267 163524 6S: ASR 

8292 016020 103420 BCS 

8293 016022 036767 163516 163500 BJT 

8294 016030 001767 BEQ 

8295 016032 036767 163506 163530 7$: BIT 

8296 016040 001004 BNE 

8297 016042 036767 163500 163522 BIT 

8298 016050 001402 BEQ 

8299 016052 016705 163510 8$: MOV 

8300 016056 016716 163472 9$: MOV 
830^ 016062 000207 10$: RTS 
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30A(1052) 12-f1AR-80 13:10 PAGE 59-67 
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SEO 0084 



10$ 
MMAVA 
6$ 

*200. *riClPAR2 

BITPT+2 

BITPT 

10$ 

BITPT. TSTMAP 
4$ 

BITPT+2.TSTMAP+2 
3$ 

#60000. R2 
7$ 

#20000. R2 

BITPT 

10$ 

BITPT. TSTIW 
5$ 

BNPT, FADMAP 
8$ 

BITPT*2,FADMAP*2 
9$ 

FADMSK. R5 
MMORE. (SP) 
PC 



BR IF ALL DONE. 

CHECK IF MEM MGMT IS AVAILABLE 

BRANCH IF NOT 

LOWER MEM MGMT PAR BY 4K 

MOV POINTER TO NEXT LOWER BANK... Hi MAP. 

...LO MAP. 

BR IF NO MORE. 

CHECK FOR BANK EXISTING 

BR IF BANK TO BE TESTED. 

.•CHECK FOR BAMC IN HI MAP. 

8R IF NOT THERE. 

SET ADR POINTER TO TOP OF BANK 

GO TO COmON EXIT 

BACK POINTER DOWN ONE BANK 

MOVE POINTER TO NEXT LOWER BANK 

BRANCH TO EXIT IF NO MORE MEM 

CHECK IF BANK EXISTS 

BRANCH IF BANK DOESN'T EXIST 

CHECK IF FIRST BANK FLAG. 

BR IF FIRST BANK. 

.•CHECK IF FIRST BANK FLAG. 

BR IF NO FLAG FOUND. 

SET UP R5 TO FIND ^IRST ADDRESb. 

RESET RETURN ADDRESS 

RE TURN 



CZQMC&G 0- 
C7QMCG.P11 



8503 
8504 
8305 
8506 
8507 
8508 
8509 
8510 
8311 
8512 
8515 
83K 
8315 
8316 
8317 
8318 
8519 
8320 
8321 
8322 
8323 
832A 
8525 
8526 
8527 
8528 
8529 
8550 
(2) 
8551 
8332 
8333 
835A 
8555 
8536 
8357 
8538 
8359 
(2) 
(2) 
85A0 
854 1 
8342 
8343 
8344 
8345 
(1) 
8346 
8347 
(1) 
(1) 
8348 



124K MEMORY 
12-MAR-80 



EXERCISER. 
13:07 



016064 
016066 
016072 
016076 
016100 
016102 
016106 
016110 
016112 
0161 K 
016116 
016120 
016124 
016126 
016152 
016134 
016136 



016140 
016142 
016144 
016146 
016152 
016156 
016160 
016162 
016164 
016166 
016170 
016172 
016172 
016174 
016176 



016200 
016200 
016204 
016206 
016210 
016212 
016216 



010200 
005067 
005767 
001417 
010146 
013701 
006301 
006301 
006301 
006301 
006301 
006167 
006301 
006167 
060100 
012601 
000207 



005000 
010146 
010246 
016701 
016702 
006202 
006001 
103405 
105200 
100575 
000000 

012602 
012601 
000207 



004467 
010022 
030502 
001375 
004767 
000207 
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SUBROUTINES FOR ADDRESS AND WORSE CASE NOiSE TES^S. 

S8TTL SU8RC?UTJN£S FOR ADDRESS AND WORSE CASE NOISE TESTS. 

i SUBROUTINE TO CALCULATE PHYSICAL ADDRESS AND PUT IT IN RO (80TTOM 16 BUS). 
• BITS 16 AND 17 ARE IN STMPO. 



SEQ 0085 



165066 
162510 



172344 



165054 
165026 



165572 
165570 



176232 
176776 



PH YADR: MOV R2. RO 

CLR $TMPO 

TST MMAVA 

BEQ 1$ 

MOV RI.-(SP) 

MOV a«KIPAR2, R1 

ASL R1 

ASL R1 

ASL Rl 

ASL R1 

ASL R1 

ROL STMPO 

ASL Rl 

POL STMPO 

ADD Rl . RO 

MOV (SP) ♦.Rl 

1$: RTS PC 



VITRUAL INTO RO 

CLEAR TEMP SAVE OF HIGH BITS 

CHECK FOR MEM MGMT AVAILABLE 

BRANCH IF NO MEM MGMT 

;PUSH Rl ON STACK 

GET PAR TO BE ADDED TO VIRTUAL 

SHIFT IT 6 TIMES 



.•SAVE EXTRA BITS 



;ADD SHIFTED PAR TO VIRTUAL 
;;POP STACK INTO Rl 
.•RETURN 



• SUBROUTINE TO PUT BANK NlfBER INTO RO. 

********************** ************************************ ****** 



BANKNO: CLR 
MOV 
MOV 
MOV 
MOV 

IS: ASR 
ROR 
BCS 
INC6 
BPL 
HALT 

2$: 

MOV 
MOV 
RTS 



RO 

RI.-(SP) 
R2,-(SP) 
BITPT, Rl 
BITPT+2.R2 
R2 
Rl 
2$ 
RO 
IS 



INIT RO 

;PUSH Rl ON STACK 

.-PUSH R2 ON STACK 

GET BANK MAP POINTER.. 

...HI 64K. 

SHIFT POINTER... HI 

...LO 

BR WHEN POINTER FOUND. 
COUNT BANKS. 
BR IF NOT OVERFLOW. 



.LO 64K. 



; FATAL ERROR! !1 NO POINTER FOUND. 

(SP)*,R2 ;;POP STACK INTO R2 

(SP)*.R1 ;;POP STACK INTO Rl 

PC .-RETURN 



•*************************************************************** 

* SUBROUTINE TO WRITE THE CONSTANT IN RO INTO ALL OF MEMORY. 



SETCON: 
2S: 



JSR 
MOV 
BIT 
BNE 
JSR 
RTS 



R4. 

RO. 

R5, 

2S 

PC. 

PC 



INITMM 

(R2)* 
R2 

MMUP 



INITIALIZE THE MEMORY ADDRESS POINTERS. 
MOV CONSTANT INTO MEMORY 
CHECK FOR END OF A BLOCK. 
BRANCH IF MORE IN CURRENT BLOCK. 
FIND NEXT BLOCK AND LOOP TO IS. 
RETURN 
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C7QMCG.P11 12-«AR-80 13:07 SUBROUTINES FOR ADDRESS AND WORSE CASE NOISE TESTS. 5EQ 0086 



o3jU 






• • 










03 JC 

03)3 






;• ROUTINE TO 


ROTATE "C" BIT THROUGH A MEMORY LOCATION, 






1 1 5 
lUD 1 1 c 


« # 

ROTATE: 


R0L8 


(R2) 


(R2)=1 77776 OR 000001 




035*» 


U10C££ 


IUD< Ic 




ROLB 


(R2) 


(R2)=y77775 OR 000002 




0355 




lUOl Ic 




ROLB 


(R2) 


(R2)= 177773 OR 000004 




035O 


UIO££0 


irUL1 1 5 
lUO 1 Ic 




ROLB 


(R2) 


(R2) =177767 OR 000010 




fl7^7 

03 J' 


U lOc jU 


1 UO 1 1 c 




ROLB 


(R2) 


(R2) =177757 OR 000020 




03 jO 


m A575 


1 (Vvl 1 5 
1 UO 1 1 C 




ROLB 


(R2) 


(R2)=1 77737 OR 00O(K0 




033t 


U lOc J*» 


1 5 

1 \JO 1 1 c 




ROLB 


(R2) 


(R2)=177677 OR 00010C 




03OU 


U 1 Oc30 


1 UO 1 1 c 




ROLB 


(R2) 


(h2>=\77777 or 000000 




03O 1 


U 1 Oc*»U 


1 UO 1 cc 




ROLB 


(R2) + 


(R2)=1 77577 OR 000200 




O jOc 


U 1 Oc'*c 


1(V>1 1 P 




ROLB 


(R2) 


(R2)=1 77377 OR 000400 




o jO J 




1 UO 1 1 C 




ROLB 


(R2; 


\H2>=\ibfff OR 001 000 




ATA/. 


U 1 OcmO 


1 UO 1 1 c 




ROLB 


(R2) 


•(R2)=1 75777 OR 002000 




OjOj 




in^si 1 p 




ROLB 


(R2) 


• {.HZi~\75f f f OR 004000 




8366 


016P52 


106112 




ROLB 


(R2) 


■(R2)=yt7777 OR 010000 






V 1 Oc J*« 


1 fV\1 1 P 




ROLB 


(R2) 


•(R2)=1 57777 OR 020000 




8368 


0''6256 


106112 




ROLB 


(R2) 


•(R2) =137777 OR 040000 




8369 


016260 


106112 




ROLB 


(R2) 


;(R2) =077777 OR 100000 




Ojf\J 


U 1 OcOc 


in/\i pp 

1 vO 1 cc 




ROLB 


(R2)* 


;^R2)=^77777 OR 000000 








000P07 




RTS 


PC 


;RETURN 




RT7P 






























R37S 

O Jf o 






SUBROUTINE 


TO URITE 3 XOR 9 PATTERN INTO 256. WORD 


SLOCK. 


016?66 


01P704 OOOOPO 


U»^X9: 


MOV 


#16. .R4 


.EACH LOOP WRITES 256. 


WORDS 


















O-/ ' o 




oinopp 

V 1 vvc c 


2$: 


MOV 


R0.(R2)* 










0100PP 




MOV 


R0.(R2)* 






R'W) 




0100PP 




MOV 


R0.(R2)* 








016300 


0100PP 




MOV 


R0.(R2)* 






















030.^ 


01A70? 

V/ 1 0 JVC 


0103?? 




MOV 


R3.(R2)+ 






O JC3** 




01 03?? 




MOV 


R3.(R2)+ 






A^S 


016306 


0103PP 




MOV 


R3.(R2)* 






A^A^ 


016310 


0103PP 




MOV 


R3,(R2)+ 






AV7 
















A^AA 


01631? 


01 OOP? 

v 1 WcC 




MOV 


R0.(R2)* 






AVQ 


016314 


01 OOP? 




MOV 


R0.(R2)* 






A^9n 


016316 


0100PP 




MOV 


R0.(R2)* 








0163P0 


0100PP 




MOV 


R0.(R2)+ 






fl39P 
















8393 


0163PP 

\J 1 \JJCC 


01 03?? 




MOV 


R3.(R2)* 






A ^94 


0163P4 


01 03?? 




MOV 


R3.(R2)+ 






oj~ J 








MOV 


R3.(R2)* 










V I \JjCC 




MOV 


R3,(R2)* 






8397 
















8398 


016332 


005304 




DEC 


R4 






8399 


016334 


001356 




BNE 


2$ 


.-SAVE RO 




8400 


016356 


010046 




MOV 


RO, -(SP) 




(1) 


016340 


010300 




MOV 


R3, RO 


;PUT R3 INTO RO 




(1) 


016342 


012603 




MOV 


(SP)*, R3 


;PUT SAVED RO INTO R3 




8401 


016344 


000207 




RTS 


PC 


.-RETURN 





CZQMCGO 0-12AK MEMORY EXERCISER. 16K 
CZQMCG.Pn 12-MAR-80 13:07 



VER MACVll 30A(105?^ 

RELOCATION SUBROUTINES. 



J 7 
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SEO 0087 



o<f05 








OS Us 








osUj 








osUo 








O/ n7 
OSUf 


U lo5so 








U103sO 


UlUcsO 




\c) 




U 1 UjsO 






U lO J JC 


U lUssO 




Q/ AO 


U IOjjs 






OHUT 


U IOjjO 


U 1 CJ'JJ 




OS 1 W 


U lOjOU 


u 1 c ' us 


o?c\c^o 

\JC\>\J\I\J 


fl/.1 1 
OS 1 1 


U IOjOs 


ni 




OS 1 C 


U IOjOO 


UU3 jUs 




OS 1 J 




nni ■<7*» 




OS 1 s 


U lOjr c 


ni ?7n^ 
u 1 c ' us 


UcUUUU 


OS 1 3 


U 1 0 J f o 


Ucscs J 




OS 10 


U lOsUU 


(V\^L^ 7 

UU Is 1 f 




OS 1 r 


U lOsUc 


ni 1 ?A7 

U 1 1 cO f 


1 oc J 1 o 


OS 1 0 


U lOsUO 


ni 1 XA7 

U 1 1 jOr 


1 Oc J 1 s 


fl/.10 

OS 1 T 


U lOs 1 c 


ni n?A7 

U 1 UcOr 


IOC juc 


oscU 


U 1 OS 1 o 


nin^7 

U 1 UjOr 


1 OC Jvv 


osc 1 


U loscc 


nni7A7 

UUsf Or 


UUJCCC 


V 1 / 


u 1 osco 






8422 


016430 


000000 




8423 


016432 


162705 


000004 


OSes 


\j 1 osjx) 


VAA^r SO 




OSC J 


V 1 oss\^ 


VA/ J JVS 




OS CO 


V/ 1 ossc 


1 _j J J 




OSC ' 


V 1 osss 




00505? 

\J\J J\J J c 




u 1 os;?u 


V/CO-' JC 




OscO 


V lOSPC 


V 1 V/ JSO 






U 1 OS.JS 


f Or 


OOA50? 


OSC" 


\j 1 osov 


ni?^=>rt^ 

v 1 cOvs 




VC ' 


V 1 osoc 








U 1 osos 


V 1 cove 






\J \ osoo 


OOOPOS 




OS J 1 








OS jc 








OS jj 








OS jS 


\J 1 OS f \J 


UCC r Or 


vVAA/w J 


OS J J 


\J 1 OS f O 


1 su 1 




OS .TO 


\J 1 0 jVA/ 


rwvvw) 




OS jf 


U 1 03V/C 






I c^ 


V/ 1 OjvC 


w 1 UVSO 




(?) 


V 1 OPvS 


OIOI^A 

U 1 V 1 SO 




OS jO 




00S7<'i7 




OS JT 


v 1 OP 1 c 


001 

VA^ 1 so J 




ossu 


V 1 0.P 1 s 


01 ?737 

V 1 c r jr 


\J\J( yjyjsj 


8441 


016522 


005000 




8442 


016524 


012701 


100000 


8443 


016530 


162737 


000200 


8444 


016536 


006001 




8445 


016540 


006000 




8446 


016542 


103500 




8447 


016544 


030167 


162756 



S8TTL RELOCATION SUBROUTINES. 
ROUTINE TO RELOCATE PROGRAM CODE 

•A************************************************************** 

RELOC: 



4$: 
1$: 

2$: 



3$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

8NE 

MOV 

CMP 

BEQ 

MOV 

MOV 

MOV 

MOV 

JSR 

.WORD 

HALT 

SU3 

BR 

DEC 

BNE 

JSR 

.WORD 

MOV 
JSR 
MOV 
MOV 
MOV 



R2.-(SP) 
R3,-(SP) 
R4,-(SP) 
(R5)t-. 
(R5)+, 
*20000. 
(R2)+, 
R4 
1$ 

*20000. 
-(R2), 
3$ 

(R2), 
(R3). 
R2. 
R3, 

*4, 
4S 

R4 
2$ 
R5. 
PRELOC 



R2 
R3 
R4 

(R3) + 



R4 

-(R3) 

SGDDAT 
S6DDAT 
SGDADR 
S6DADR 
SERROR 

.•FATAL 
R5 



SPRINT 



9 « 
■ * 



162104 



RTS 

************ 

SUBROUTINE 
• • ************ 

RE L TOP: CMP 
BEQ 



R3. -(SP) 
PC. STYPAD 
(SP)+.R4 
(SP)+.R3 
<SP)*.R2 
R5 

**************** 



;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;GET FIRST LOCATION. 
;GET FIRST LOCATION OF DESTINATION. 
;SET UP 8K COUNTER. 
;MOV THE DATA. 
; COUNT THE WORDS. 
;BR IF MORE. 
.•RESET THE COUNTER. 
.•CHECK THE DATA JUST MOVED. 
;BR IF DATA OK. 
.-GET SOURCE DATA. 
.-GET DESTINATION DATA. 
;GET SOURCE ADDRESS. 
:GET DESTINATION ADDRESS. 
;*** ERROR *** (GO TYPE A MESSAGE) 
.•ERROR TYPE CODE. 
ERROR!!! RELOCATION FAILED. 
.•ADJUST RETURN POINTER. 
;G0 BACK AND TRY AGAIN. 
.•COUNT WORDS. 
'BR IF MORE 

•60 PRINT OUT THE FOLLOWING MESSAGE. 

.•ADDRESS OF MESSAGE TO BE TYPED 

;'T>R06RAf1 RELOCATED TO " 

;PUT THE DATA ON THE STACK. 

.'DETERMINE THE PHYSICAL ADDRESS AND TYPE IT. 

;;POP STACK INTO R4 

.-.•POP STACK INTO R3 

;;POP STACK INTO R2 

.'RETURN 

*********************************** 



1$: 



172346 



172346 2$: 



HALT 

MOV 
MOV 
TST 
BEQ 
MOV 
CLR 
MOV 
SUB 
ROR 
ROR 
BCS 
BIT 



TO MOVE PROGRAM FROM BOTTOM TO TOP OF MEMORY. 
************************************************* 

91. PR»WP .-CHECK THAT THE PROGRAM IS NOW IN BANKS 0 AND 1 
If ;8R IF OK 

.•FATAL ERROR! I! PROG SHOULD BE IN BANKS 0 AND 1 



RO.-(SP) 
RI.-(SP) 
MMAVA 
10$ 

#7600. a#KIPAR3 
RO 

*8IT15, 
*200. 
R1 
RO 
90$ 
R1. 



;;PUSH 
;;PUSH 



RO 
R1 



ON 
ON 



STACK 
STACK 



MEM 

,.L0 



64K 



;SET PAR TO TOP OF 
INIT BANK POINTER., 
R1 ;...HI 64K. 

a#KIPAR3 ;BACK DOWN ONE BANK. 

;MOVE POINTER... HI 64K. 
;..L0 64K. 



MEMMAP*2 ;CHECK FOR BANK EXISTS. 
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SEQ 008fi 



0*»hO 


UIOj jU 






By / Q 


U lojjc 




1 Oc 1 HO 




U 10 J JO 


w 1 ^Oh 




%U C1 
OSD 1 


U lo>ou 


ni X7T7 


1 r C jhO 


a/ ^5 


U IOjOO 


U 1 WHO 






u lojyu 


U lU IhO 




0*« J J 


ni/,c7? 

U \OJf c 


lOcr jr 


UVA^cVA/ 




U lOOUU 


UVIOUU 1 






U lOOUc 








U IOOUh 


1 Ujh J' 




OH Jf 


U lOOUO 


n7ni/^7 

UjU ID' 


1 Oc r 1 H 




u 100 1 c 


VA/ IVA/j 




a/. CO 






1 Oc ' Uh 


BAATt 




(A* 1 'Oh 




OhO I 


U 1 OOcc 


U JcOv 1 






U lOOcH 






ohOj 






1 0 1 r 


BZ.A/. 




VA^ 1 UHH 






U lOOJH 


UUH JOf 


177S0^> 
Iff jyjG 


o*»oo 


w lOOHU 


nnnnoo 




SAA7 


U lOOHc 


rv/ (VW) 

vHlAAA/ 




O'»00 


U 1 OOHH 




1 r c JHH 






ni X7^7 


1 r C JHO 


BA7n 








0*t f 1 




mm A7 

V 1 v 1 Or 


1A17P0 
1 0 1 r CV 


A^77 


\J 1 OOOH 


VAA^ r J 




><^7'? 








fl^7^ 


V 1 0000 


m?7no 


000400 


fl^7S 

OHf J 


U I OOr c 


nosnoi 






w 1 OOr H 


1 Oc r V 1 


OPOOOO 


fU.77 


U lO' lA/ 


uwocv/u 




0*tf o 


U IO( Uc 


in^?n 

1 w jHcw 




0/70 


yj lOf wh 


nVKV>7 

vJVA/Or 


1 OCO 1 H 


OHOU 


ni A71 n 

\J 1 0' 1 w 


nrti 771 

\A/ 1 r r 1 




a*to 1 


U 1 O' 1 c 


1 OC r V 1 


070000 

VClAAA/ 


OHOC 


V 1 0' 1 0 








u 1 O' cv 


1 V JH 1 1 




OHOH 


U lOr CC 


nwv^7 

vJWOr 


I OC-Jf 0 


OHO J 


\J 1 Or CO 


001 7AP 

lA/ 1 r Oc 




OHOO 


V 1 Or J\J 


OIOO^A 




OHOf 


U lOr 






OHOO 


V lOr JH 






OHOT 


V lOr JO 


ovyK7 

wJWOr 


1 0 1 OHv 


By. on 

OHtU 


w 1 Or He 


W IHw 1 




OHT 1 


V 1 Or HH 






V 1 1 


V 1 Or HH 


nooono 




OHTC 


V 1 Or HO 


0101A7 
V 1 w 1 Or 


00000^ 


A^Q'^ 

OHTrj 


V 1 Or JC 


JOr 


1 77x70 

1 r r jf v 


OH TH 


V 1 0 r J%J 


000000 

lAAAAA/ 




8495 


016760 


000000 




8496 


016762 


010167 


161612 


8497 


016766 


060107 




8496 








8499 


016770 


060106 




8500 




010167 


161602 


8501 


oyt77t 


060137 


000004 



172344 3$: 



172344 4$: 



5$: 



6$: 



172340 
172342 



10$: 
11$: 



90$: 
12$: 



13$ 



BNE 
BIT 
BEQ 
MOV 
MOV 
MOV 
SUB 
ROR 
ROR 
BCS 
BIT 
BNE 
BIT 
BEO 
BIS 
BIS 
BIT 
BNE 
JSR 
.WORD 
.WORD 
MOV 
MOV 
PROGRAM 
MOV 
BR 

MOV 
CLR 
SUB 
ASR 
BCS 
BIT 
BEO 
SUB 
ASR 
BCS 
BIT 
BEQ 
MOV 
ASL 
BIS 
BIT 
BEQ 



3$ :BR IF AVAILABLE 

RO. MEMMAP .-CHECK FOR BANK EXISTS 

2$ :BR IF NO BANK FOUND. 

»rKiPAR3.arKiPAR? .-copy par 

RO.-(SP) ;;PUSH RO ON STACK 

Rl.-(SP) ;;PUSH 



#260, 
Rl 
RO 
90$ 
Rl. 
6S 
RO. 
4$ 

(SP)+, 
(SP)+, 
RO. 
90$ 
R5. 
0 

40000 



PAR, 



MEMMAP 

Rl 
RO 

PRGMAP 
RELOC 



Rl ON STACK 
DOUN WITH LOW 
POINTER. 
64K. 

OVERFLOW. 

CHECK IF BANK EXISTS... HJ 64K, 
BANK EXISTS. 
IF BANK EXISTS. ..LO 
BANK DOESN'T EXIST. 
BANK POINTER. 



64K. 



SHOULD 
Rl 



a#K]PAR2 .-BACK 
SHIFT 
...LO 
BR IF 
MEMMAP+2 ; 

;Bfl IF 
.CHECK 
;BR IF 
;6ET SECOND 
;...L0 64K. 
.CHECK FOR CONFLICT. 
.-ABORT IF DESTINATION OVERLAYS SOURCE. 
;60 RELOCATE PROGRAM. 
.-SOURCE FIRST ADDRESS. 
^^^^^ ;DESTINATION FIRST ADDRESS. 

a«KIPAR2.aArKlPAR0 .RELOCATE LO BANK 
arKIPAR3.»rKlPAR1 .-relocate HI BANK. 

NOW BE EXICUTIN6 OUT OF LAST TWO BANKS OF MEMORY. 
PRGnAP*2 .-RESET PROGRAM MAP. 
30$ ;BR TO COMMON EXIT. 



#81 T8. RO 

Rl 

#20000. Rl 

RO 

90$ 

RO. MEMMAP 
11$ 

#20000. Rl 
RO 



90$ 

RO- 
11$ 
RO. 
RO 

(SP)*, 

RO. 

12i 



MEMMAP 

-(SP) 

RO 

PRGMAP 



SET BAMC POINTER TO TOP OF MEM. 

SET ADDRESS POINTER TO TOP. 

BACK DOUN ONE BANK. 

MOVE POINTER DOUN ONE BANK. 

BR IF OVERFLOW. 

CHECK IF THIS BANK EXISTS. 

BR IF NON-EXISTANT BANK. 

BACK DOUN TO NEXT BANK. 

MOV POINTER DOUN ONE BANK. 

8R IF OVERFLOW. 

CHECK IF THIS BANK EXISTS. 

BR TO START OVER IF NO LOWER BANK. 

SAVE THE POINTER. 

RESET POINTER TO HI BANK. 

SET BIT FOR LO BAf*(. 

CHECK FOR A PROGRAM CONFLICT. 

8R IF NO CONFLICT. 



.•FATAL error; ! ! NOT ENOUGH MEMORY 



HALT 

MOV Rl. 13$ .-SET DATA FOR RELOCATION SUBROUTINE. 

JSR R5, RELOC .-60 RELOCATE THE PROGRAM TO TOP OF MEM, 

.WORD 0 .-SOURCE STARTING ADDRESS. 

.WORD 0 .DESTINATION STARTING ADDRESS. 

MOV Rl. RELOCF ;SET RELOCATION FACTOR IN UiJELOCATED CXE. 

ADD Rl. PC ;Jlff» TO RELOCATED PROGRAM 

PROGRAM NOW EXICUTING OUT OF TOP OF MEMORY. 

ADD Rl, SP .-ADJUST THE STACK POINTER TO TOP OF MEMORY. 

MOV Rl, RELOCF .SET THE RELOCATION FACTOR. 

ADD Rl, d#ERRVEC ;ADJUST ERROR VECTOR. 
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SEO 008 V 



8502 
8503 
8504 
8505 
8506 
8507 
8508 
8509 
8510 
8511 
8512 
8513 
85K 
8515 
(2) 
8516 
8517 
8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 
8550 
8551 
8552 
8553 
8554 
8555 
8556 



017002 
017006 
017012 
017020 
017022 
017026 
017032 
017036 
017042 
017044 
017046 
017052 
017054 
017060 
017062 
017064 
017070 



017072 
017100 
017102 
017104 
017110 
017112 
017116 
017124 
017130 
017132 
017134 
017140 



017150 
017154 
017160 
017164 
017166 
017170 

017172 
017174 
017176 

017202 
017206 
017210 
017212 
017216 
017220 
017222 
017226 
017232 



060137 
060137 
026727 
001404 
060167 
060167 
062701 
066721 
005721 
001776 
024127 
001371 
010067 
012601 
012600 
066716 
000207 



032767 
001401 
000000 
005767 
001417 
005037 
012737 
004567 
000000 
040000 
005037 
012737 



017146 000444 



016746 
011667 
004567 
000000 
000000 
161607 

161606 
010046 
012700 

166620 
005720 
001776 
024027 
001371 
012600 
161637 
161637 
161637 



000024 
000114 
162122 

162112 
162110 
001622 
161536 



^77777 
161522 

161510 



161476 

172344 
000200 
177216 



172340 
000200 



161424 
000004 
177162 



001622 
000002 

\m77 



000004 
000024 
000114 



1775^0 



14$ 
15$ 
16$ 



30$: 



ADD 
ADD 
CMP 
BEO 
ADD 
ADD 
ADD 
ADD 
TST 
BEQ 
CMP 
BNE 
MOV 
MOV 
MOV 
ADD 
RTS 



R1. 
R1. 
SWR, 
14$ 
R1. 
Rl. 



a#PWRVEC 
d#PARVEC 
#177570 

SUR 

DISPLAY 



#RADTA8.R1 

RELOCF. (R1)4 
(R1) + 
16$ 
-(Rl) 
15$ 
RO, 

(SP)*.R1 
(SP)*. RO 
RELOCF. (SP) 
PC 



f-1 

PRGMAP 



.ADJUST POWER FAIL VECTOR, 

.ADJUST PARITY ERROR VECTOR. 

CHECK FOR HARDWARE SWITCH REGISTfR. 

BR IF HARDWARE SWITCH REGISTER. 

ADJUST SOFTWARE SWITCH REGISTER. 

ADJUST SOFTWARE DISPLAY REGISTER. 

POINT TO THE RELATIVE RELOCATION TABLE. 

ADD RELOCATION FACTOR TO ADDRESSES IN TABLE 

CHECK FOR INTERIM TERMINATOR. 

BR SO AS TO NOT MODIFY ZERO. 

CHECK FOR END OF TABLE. 

BR IF MORE IN TABLE. 

SET NEW PR0GRV1 MV>...LO 64r. 

.-POP STACK INTO Rl 

;POP STACK INTO RO 

ADJUST RETURN ADDRESS. 

RETURN 



• * 



SUBROUTINE TO RELOCATE PROGRAM BACK TO BANKS 0 AM> 1 . 

A************************************************************** 



000003 161502 RELO; 



1$: 



1 72346 



1 7234? 



BIT 
BEO 
HALT 
TST 
BEO 
CLR 
MOV 
JSR 
.WORD 
.WORD 
CLR 
MOV 



1 



#3. PRGMAP .-CHECK FOR PROGRAM ALREADY IN BANKS 0 OR 1 
1$ ;BR IF NO CONFLICT. 

;FATAL ERROR!!! PROGRAM ALREADY IN BANKS 0 OR 
MMAVA .-CHECK FOR MEM MGMT. 

10$ ;BR IF NO MEMMGMT. 

a*KIPAR2 .-SET PAR 2 TO BANK 0. 

#200. a#KIPAR3 ;SET PAR 3 TO BANK 1 

R5. 

0 

40000 
a«KIPARO 
#200. a#KIPAR1 



F.LOC 



;G0 MOVE 8K INTO BANKS 0 AM) 
;SOURCE STARTING ADDRESS. 
.-DESTINATION STARTING ADDRESS 
.-RESTORE PAR 0 TO BANKO. 
'RESTORE PAR 1 TO BANK 1 . 
:* PROGRAM IS NOW EXICUTING OUT OF BANKS 0 AND 1 . 

;BR TO COWON EXIT. 



10$: 



20$: 



THE 



21$: 
22$: 



BR 

MOV 

hOV 

JSR 

.WORD 

.WORD 

SUB 

PROGRAM 
SUB 
MOV 
MOV 

SUB 
TST 
BEO 
CMP 
BNE 
MOV 
SUB 

sue 

SUB 



30$ 

RELOCF. 

(SP). 

R5. 

0 

0 

(SP). 



-(SP) 

20$ 

RELOC 



PC 



PUT RELOCATION FACTOR ONTO THE STACK. 

SET DATA FOR RELOC SUBROUTINE. 

GO MOVE THE PROGRAM BACK TO BANKS 0 AND 1 

SOURCE STARTING ADDRESS. 

DESTINATION STARTING ADDRESS. 

JUMP TO RELOCATED PROGRAM. 



IS NOW EXICUTING OUT Of BANKS 0 AND 1 . 



(SP) . SP 

RO.-(SP) 

#RADTAB.RO 



RESET THE STACK POINTER. 
.-PUSH RO ON STACK 
SET UP POINTER TO RELATIVE 



ADDRESS TABLE. 



2(SP). 
(RO)'^ 
22$ 
-(RO). 
21$ 

(SP)-^.RO 
(SP). 
(SP). 



(R0) + 



#-1 



RESET ADDRESSES TO UNRELOCATED VALUES. 
CHECK FOR TERMINATORS. 
BR OVER TERMINATORS. 
CHECK FOR END OF TABLE INDICATOR. 
BR IF MORE ADDRESSES IN TABLE. 
.-POP STACK INTO RO 
a#ERRVEC .-ADJUST ERROR VECTOR. 
a#PWRVEC .-ADJUST POWER FAIL VECTOR. 



(SP). a#PARVEC .-ADJUST PARITY ERROR VECTOR, 



J 



CZQMCGO 0-1 2AK MEMORY 
CZQMCG.P11 12-MAR-80 



8557 

8558 

8559 

8560 

8561 

8562 

8563 

856^ 

8565 

8566 

8567 

8568 

8569 

8570 

8571 

8572 

8573 

857A 

8575 

8576 

8577 

8578 

8579 

8580 

8581 

8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 

8601 

8602 

8603 

8604 

8605 



017236 
017244 
017246 
017252 
017256 
017260 
017264 
017272 
017276 



017300 
017304 
017306 
017310 
017314 
017316 
017322 
017326 
017332 
017334 
017336 
017340 
017344 
017350 
017352 
017356 



017360 
017364 
017366 
017372 
017374 
017402 
017404 
017406 
017410 
017416 
017420 
017424 
017426 
017430 
017432 
017436 



026727 
001404 
161667 
161667 
162616 
005067 
012767 
005067 
000207 



005767 
001024 
012700 
010001 
012737 
011020 
000776 
022626 
012737 
010046 
012702 
014041 
005302 
001375 
012667 
000207 
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SEQ 009-. 



161314 

000003 
161306 



161310 



23S: 
30S: 



CMP 


SJR. 


#177570 . 


CHECK FOR HARDWARE SWITCH REGISUR. 


BEO 


23$ 




BR IF HARDWARE SWITCH REGISTER. 


sue 


(SP). 


SWR '. 


ADJUST SOFTWARE SWITCH REGISTER. 


SUB 


(SP). 


DISPLAY , 


•ADJUST SOFTWARE DISPLAY REGISTER. 


SUB 


(SP)*. 
RELOCF 


(SP) 


ADJUST RETURN ADDRESS. 


CLR 




•RESET RELOCATION FACTOR. 


MOV 


*3. 


PRGMAP ! 


•SET PROGRAM MAP TO POINT TO BANKS 0 AND 1 . 


CLR 


PRG«AP*2 


-...HI 64K. 


RTS 


PC 




■RETURN. 



• THIS SUBROUTINE MOVES THE LOADER AREA BACK TO THE "TOP" OF MEMORY FROM 

• WHENCE IT CAME. THE LOADER AREA IS SAVED AT THE END OF THE 8K OF 

• PROGRAM CODE WHEN THE PROGRAM IS INITIALLY RUN. 



016700 


162214 


RESLDR: 


MOV 


U1AD. 


RO 


.•CHECK IF THE LOADERS WERE SAVED. 


001001 




6NE 


1$ 




:BR IF LOADER AREA WAS SAVED. 
ERROR!!! CAN'T RESTORE LOADER AREA IF IT W 


000000 






HALT 




.•FATAL 


005767 


161272 


IS: 


TST 


MMAVA 


.•CHECK FOR MEM MGMT. 


001402 






BEQ 


2$ 




.•SKIP IF NO MEM MGMT. 


005037 


177572 




CLR 


airsRO 




.DISABLE MEM MGMT, 


012701 


040000 


2$: 


MOV 


#40000. 


R1 


.-GET END OF 8K. ASSlflE PROG NOT RELOCATED. 


012702 


002734 




MOV 


#1500.. 


R2 


.GET COlf^TER. 


014140 




3$: 


MOV 


-(R1). 


-(RO) 


.■MOVE THE LOADER AREA. 


005302 






DEC 


R2 




.-COIMT HOW LONG THE AREA IS. 


001375 






6NE 


3$ 




.-BR IF NOT MORE TO MOVE. 


005067 


162154 




CLR 


LrtAD 




.•CLEAR MONITOR SAVED FLAG 


005767 


161236 




TST 


MMAVA 




.•CHECK FOR MEM MGMT. 


001402 






BEQ 


4$ 




.-BR IF NO MEM MGMT. 


005237 


177572 




INC 


atSRO 




.ENABLE MEM MGMT. 


U00207 




4$: 


RTS 


PC 




.•RETURN. 



162134 
040000 
017406 

025124 
002734 

162062 



ROUTINE TO SAVE THE LOADERS AT THE END OF 8K. 



000004 



000004 



SAVLDR: TST 
BNE 
MOV 
MOV 
MOV 
MOV 
BR 
CMP 
MOV 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
RTS 



IS: 
2S: 



3S: 



4S: 



LMAD 
4S 

#40000, RO 
RO. R1 
#2$. a#ERRVEC 
(RO). (RO)* 
1S 

(SP)*. (SP)* 
#ERRTRP.a#ERRVEC 
RO. -(SP) 
#1500-, R2 



-(RO). 
R2 
3S 

(SP)*, 
PC 



-(R1) 



LMAD 



CHECK IF LOADERS HAVE BEEN SAVED ALREADY, 
BRANCH IF ALREADY SAVED 
GET END OF 8K 
GET END OF 8K 
SET UP TIMEOUT VECTOR 
SEARCH FOR END OF MEMORY 
KEEP SEARCHING 
RESTORE STACK POINTER 
.RESET TIMEOUT VECTOR. 
SAVE LAST MEMORY ADDRESS (CONTIGUOUS) 
SET UP WORD COUNTER 
SAVE THE LOADERS 
COUNT THE WORDS 
BRANCH IF MORE WORDS 
SAVE LAST MEMORY ADDRESS 
RETURN 
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SEO 0091 



8607 
8608 
8609 
8610 
8611 
8612 
8613 
86U 
(2) 
(1) 
8615 
(2) 
8616 
8617 
8618 
8619 
8620 
8621 
(1) 
(1) 
8622 
8623 
8624 
8625 
8626 
8627 
(2) 
(1) 
8628 
(1) 
(2) 
(2) 
8629 
8630 
8631 
(2) 
(2) 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 
8644 
8645 
8646 
8647 
8648 
8649 
8650 



017440 
017444 
017450 

017452 
017454 
017456 
017462 
017464 
017466 
017470 
017472 

017476 
017500 
017502 
017504 
017506 
017510 
017512 
017516 

017520 
017520 
017524 
017530 
017532 
017536 
017540 
017540 
017542 
017544 



017546 
017552 
017554 
017562 
017564 
017570 
017572 
017600 
017602 
017610 

017612 
017620 



011667 
004567 
026511 

010146 
010346 
016703 
005733 
100415 
005713 
001374 
004767 

000024 
000417 
005713 
001415 
005733 
100374 
004567 
026602 



005767 
001434 
032777 
001030 
005767 
001410 
052777 
001004 
026727 
103415 

016737 
005037 



161456 
004052 



162146 



002152 



004004 



162524 
000100 
161010 
000040 
161754 



162020 
000116 



.S8TTL PARITY MEMORY TRAP SERVICE AND SUBROUTINES. 
***************************************************************** 

;i PARITY MEMORY UNEXPECTED ERROR TRAP SERVICE ROUTINE. 
;* FIND OUT WHICH REGISTER DETECTED THE ERROR. 

THEN SCAN MEMORY TO SEE IF PARITY ERROR STILL SET AND REPORT LOCATION. 



PESRV: 



MOV 
JSR 
.WORD 



MOV 
MOV 

MOV 

1$: TST 
BMI 
TST 
BNE 

JSR 

.••**ERROR*** 

.WORD 
BR 
TST 
BEQ 
TST 
BPL 
JSR 
.WORD 

3$: 



2$: 



(SP), S8DADR 
R5. $PRINT 
UNEXPT 

R1,-(SP) 
R3,-(SP) 
.MPRX, R3 
a(R3)+ 
3$ 
(R3) 
1$ 

PC , SERROR 
NO REGISTER INDI 
24 
4$ 
(R3) 
4S 

a(R3}-^ 
2S 

R5, SPRINT 
MTOE 



004767 


000610 


64S: 


JSR 


PC. SPRNTO 


004767 


002120 




JSR 


PC . lERROR 


000025 






.WORD 


25 


004767 


000216 




JSR 


PC, PSCAN 


000761 




4S: 


BR 


2$ 


012603 






MOV 


(SP)*,R3 


012601 






MOV 


(SP)+,R1 


000002 






RTI 





.GET PC OF INSTRUCTION WHICH CAUSED ERROR. 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
.-'UNEXPECTED MEMORY PARITY TRAP." 
;;PUSH R1 ON STACK 
;;PUSH R3 ON STACK 
;GET POINTER TO PARITY REGISTERS. 
.•CHECK THE PARITY REG FOR AN ERROR FLAG. 
;BR IF THIS REGISTER SHOWS THE ERROR. 
.•CHECK FOR TABLE TERMINATOR. 
;8R IF MORE REGISTERS. 

ERROR (GO TYPE A MESSAGE) 
CATED ERROR 
; ERROR TYPE CODE. 
.•EXIT 

.•CHECK FOR TABLE TERMINATOR. 

:6R IF NO MORE PARITY REGISTERS. 

;CHECK THE PARITY REG FOR AN ERROR FLAG. 

:6R IF NO ERROR FLAG. 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

.•ADDRESS OF MESSAGE TO BE TYPED 

.-'WORE THAN ONE ERROR FOUND." 

.•SET UP VALUES FOR ERROR PRINTING. 

ERROR *** (GO TYPE A MESSAGE) 
.•ERROR TYPE CODE. 
;60 SCAN MEMORY FOR BAD PARITY. 
:G0 LOOK FOR MORE ERRORS. 

;;POP STACK INTO R3 
;;POP STACK INTO R1 
.•RETURN. 



ROUTINE TO ENABLE PARITY ERROR ACTION ON MA/MF PARITY MEMORIES 
THIS ROUTINE IS ME.ANT TO CATCH UNEXPECTEDS 

• *************************************************************** 



MAMF; 



161356 



161340 
001000 



000114 SETAE: 



TST MPRX .-CHECK IF ANY PARITY REGISTERS EXIST. 

BEQ MAMF2 ;EXIT IF NO PARITY REGISTERS. 

BIT #SW6- aSWR .-CHECK FOR INHIBIT PARITY ERROR DETECTION. 

BNE MAMF? ;EXIT IF NO PARITY ERROR DETECTION. 

TST RELOCF ; CHECK IF PROGRAM RELOCATED OUT OF BANK 0. 

BEQ SETAE ;BR IF PROG IN BANK 0. 

BIT *SW5, aSWR ;CHECK IF VECTORS PROTECTED. 

BNE SETAE ;BR IF VECTOR AREA PROTECTED. 

CW» FSTADR, #1000 .-CHECK FOR STARTING ADDRESS ABOVE THE VECTORS. 

BLO MAMF2 .-EXIT IF VECTORS EXPOSED TO TESTING. 

MOV .PESRV, arPARVEC .-SET PARITY ERROR TRAP VECTOR 

CLR a#PARVEC*2 .-PRIORITY LEVEL 0 ON TRAP 
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SEO 0092 



8651 
8652 
8653 
865A 
8655 
8656 
8657 
8658 
8659 
8660 
8661 
8662 
8663 
8664 
8665 

OOOO 

8667 
8668 
8669 
8670 
8671 
8672 
8673 
(2) 
(2) 
867A 
8675 
8676 
(1) 
(2) 
(2) 
8677 
8678 
8679 
8680 
8681 
8682 
8683 
8684 
8685 
8686 
8687 
8688 
8689 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
8690 
(2) 
(1) 
8691 
8692 



017624 
017626 
017632 
017636 
017640 
017642 
017644 



017646 
017646 
017652 
017654 
017662 
017664 
017666 
017672 
017674 
017676 
017704 
017706 
017712 
017716 
017720 
017722 
017726 
017726 
017732 
017736 
017740 
017744 
01 7746 
01 7750 
017752 



010346 
016703 
052733 
005713 
001374 
012603 
000207 



005767 
001437 
032777 
001033 
010346 
016703 
005733 
100023 
0^2773 
001410 
004767 
004767 
000026 
000411 
004767 

004767 
004767 
000027 
004767 
005713 
001351 
012603 
000207 



161776 
000001 



162424 
000100 

161736 



161256 



000001 ^7777fi 

000422 
001732 



000026 

000402 
001712 

000010 





MOV 


R3.-(SP) 




MOV 


.MPRX, R3 


MAMFI: 


BIS 


4rAE. a(R3)« 




TST 


(R3) 




BNE 


MWI 




MOV 


(SP) ♦,R3 


HAMF2: 


RTS 


PC 


;• SUBROUTINE 


TO CHECK PARITY 


CH662: 






CKPWcR: 


T C T 


MPRX 




OCA 


4S 




Q T T 


«SU6, asuR 




bWw 


4S 




nOV 


R3.-(SP) 




nuv 


.MPRX, R3 


1 • : 


TCT 


a(R3)* 




OrL 


3S 




ni T 


*8IT0. a-2(R3) 




BEO 


2$ 


64S: 


jSR 


PC. SPRNTO 




JSR 


PC. SERROR 




.WORD 


26 




BR 


3S 




JSR 


PC. PSCAN 


2S: 




65S: 


JSR 


PC. SPRNTO 




JSR 


PC. SERROR 




.WORD 


27 




JSR 


PC. PSCAN 


3S: 


TST 


(R3) 




BNE 


IS 




MOV 


(SP)*.R3 


4S: 


RTS 


PC 



.•PUSH R3 ON STACK 

GET PARITY REGISTER T/«LE POINTER. 

SET ACTION ENABLE BIT IN PARITY REG 

CHECK FOR END OF T/«LE. 

BR IF MORE PARITY REGISTERS. 

.POP STACK INTO R3 

RETURN. 



CHECK IF ANY PARITY REGISTERS EXIST. 
BR IF NO PARITY REGISTERS. 
CHECK FOR INHIBIT PARITY ERROR CHECKING. 
BR IF PARITY ERROR CHECKING INHIBITED. 
.•PUSH R3 ON S'.ACK 
GET PARITY REG TABLE POINTER. 
CHECK THE PARITY REG FOR AN ERROR FLAG. 
BH IF NO ER'?OR 

CHECK IF A TRAP ShCCLD HAVE OCCURRED. 
BR IF NO ACTION ENABLE. CHGG2 
SET UP VALUEb FOR ERROR PRINTING. 
*** ERROR •** (CO TYPE A MESSAGE) 
ERROR TYPE CODE. 

60 SCAN ALL MEMORY FOR PARITY ERRORS. 

SET UP VALUES FOR ERROR PRINTING. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 

GO SCAN ALL MEMORY FOR PARITY ERRORS. 
CHECK FOR T/«LE TERMINATOR. 
BR IF MORE. 
;POP STACK INTO R3 
RETURN. 

* THIS SUBROUTINE WILL SCAN ALL OF MEMORY LOOKING FOR BAD PARITY, 

* TYPE OUT ALL LOCATIONS FOIWO TO BE BAD. AND WRITE BACK INTO THE 

* LOCATIONS IN ORDER TO RESTORE GOOD PARITY. 



017754 






PSCAN; 


017754 


010046 




MOV 


017756 


010146 




MOV 


017760 


010246 




MOV 


017762 


010346 




MOV 


017764 


010446 




MOV 


017766 


013746 


000114 


MOV 


017772 


013746 


000116 


MOV 


017776 


004567 


003520 


JSR 


020002 


026646 




.WORD 


020004 


012700 


000001 


MOV 


020010 


005001 




CLR 



RO,-(SP) 
R1,-(SP) 
R2.-(SP) 
R3,-(SP) 
R4,-(SP) 
»ri14,-(SP) 
3*116, -(SP) 
R5, SPRINT 



*8IT0, 
R1 



RO 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R4 ON STACK 

PUSH a«114 ON STACK 

PUSH a«116 ON STACK 
GO PRINT OUT THE FOLLOWING MESSAGE, 
ADDRESS OF MESSAGE TO BIE TYPED 
"SCALING MEMORY FOR BAD PARITY." 
SET BIT POINTER TO FIRST BANK. 
CLR HI 64K POINTER. 
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8693 


020012 


005002 








CLR 


8694 


020014 


005004 








CLR 


8695 


020016 


004767 


000256 






JSR 


8696 


020022 


012737 


000116 


000114 




MOV 


8697 


020030 


005037 


000116 






CLR 


8698 


020034 


005767 


160546 






Tsr 


8699 


020040 


001406 








BEQ 


8700 


020042 


013746 


172344 






MOV 


8701 


020046 


005037 


172344 






CLR 


8702 


020052 


012702 


040000 






MOV 


8703 


020056 


030067 


161442 




IS: 


BIT 


8704 


020062 


001003 








BNE 


8705 


020064 


030167 


161436 






BIT 


8706 


020070 


001442 








BEQ 


8707 


020072 








2S: 




(2) 


020072 


010146 








MOV 


8708 


020074 


111201 






3$: 


M0V8 


8709 


020076 


016703 


161526 






MOV 


8710 


020102 


005733 






4S: 


TST 


8711 


020104 


100024 








8PL 


8712 


020106 


005704 








TST 


8713 


020110 


001003 








BNE 


8714 


020112 


005367 


160774 






DEC 


8715 


020116 


005204 








INC 


8716 


020120 








5$: 




(1) 


020120 


004767 


000210 




64$: 


JSR 


(2) 


020124 


004767 


001520 






JSR 


(2) 


020130 


000030 








.WORD 


8717 


020132 


111212 








nova 


8718 


020134 


005053 








CLR 


8719 


020136 


105712 








T C TO 

TST8 


8720 


020140 


005733 








TST 


8721 


020142 


100005 








BPL 


8722 


020144 


004567 


003352 






JSR 


(2) 


020150 


026710 








.WORD 


(1) 
8723 


020152 


005073 


1 77776 






CLR 


8724 


020156 


005713 






6$: 


TST 


8725 


020160 


001350 








BNE 


8726 


020162 


005202 








INC 


8727 


020164 


032702 


0^7777 






BIT 


8728 


0201 70 


001341 








BNE 


8729 


020172 


012601 








nov 


8730 


020174 


000402 








BR 


8731 


020176 


062702 


020000 




10$: 


ADD 


8732 


•^20202 


005767 


160400 




11$: 


TST 


8733 


020206 


001413 








BEQ 


8734 


020210 


062737 


000200 


1 72344 




ADD 


8735 


020216 


012702 


040000 






MOV 


8736 


020222 


006300 








ASL 


8737 


020224 


006101 








ROL 


8738 


020226 


100313 








BPL 


8739 


020230 


012637 


172344 






MOV 


8740 


020234 


000402 








BR 


8741 


020236 


106300 






12$: 


ASL8 


8742 


020240 


100306 








BPL 
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R2 ;INIT ADDRESS POINTER. 

R4 ;INIT ERROR DETECTED FLAG. 

PC. CLRPAR .-CLEAR THE PARITY REGISTERS. 

*116. »rl14 ;HALT IF ANOTHER PARITY TRAP. 

a#116 

MMAVA .CHECK FOR MEMORY MANAGEMENT. 

1$ ;BR IF NO MEM MGHT. 

a»KIPAR2.-(SP) ;;PUSH a»KIPAR2 ON STACK 

a#KIPAR2 ;INIT MEM MGMT TO POINT TO BANK 0. 

^40000. R2 .-SET ADR POINTER TO PAR2. 

RO. MEMMAP .-CHECK IF THIS BANK OF MEM EXISTS. 

2$ ;6R IF THIS BANK EXISTS. 

R1. MEMMAP+2 .-CHECK HI 64K MAP. 

10$ ;8R IF THIS BANK DOESN'T EXIST. 

RI.-(SP) .-.-PUSH R1 ON STACK 

(R2), R1 .-READ THE LOCATION TO SEE IF IT HAS A PARITY ERROR. 

.MPRX, R3 .-SET UP POINTER TO PARITY REGISTERS. 

a(R3)+ ; CHECK FOR THE ERROR FLAG. 

6$ ;BR IF NO ERROR FLAG. 

R4 .-CHECK IF FIRST ERROR, THIS SCAN. 

5$ ;8R IF MORE THAN ONE ERROR FOUND. 

$ERTTL ; ADJUST ERROR COUNT. 

R4 .SET FLAG TO INDICATE ERROR FOUND. 

PC. SPRNTQ .-SET UP VALUES FOR ERROR PRINTING. 
PC. $ERROR ERROR •** (GO TYPE A MESSAGE) 

30 .-ERROR TYPE COOE- 

(R2). (R2) .-REWRITE THE LOCATION TO CLEAR BAD PARITY. 

a-(R3) .-CLEAR THE ERROR FLAG. 

(R2) .-CHECK IF THE PARITY ERROR WAS CLEARED. 

a(R3)+ .-CHECK FOR THE ERROR FLAG. 

6$ ;BR IF IT IS OK. 

R5. $PRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 

PEWNC .-ADDRESS OF MESSAGE TO BE TYPED 
.-•PARITY ERROR WILL NOT CLEAR." 

a-2(R3) .-CLEAR OUT THE PARITY ERROR FLAG. 

(R3) .-CHECK FOR THE END OF REG ADR TABLE. 

4$ ;8R IF MORE PARITY REGISTERS. 

R2 ;60 TO NEXT MEMORY ADDRESS. 

#mSK4K.R2 .-CHECK FOR END OF 4K BANK. 

3$ :BR IF MORE MEMORY THIS BANK. 

(SP) ♦.Rl .-;POP STACK INTO R1 

11$ ;BR TO CHECK FOR NEXT BANK. 

#20000, R2 .SKIP BANKS THAT AREN'T THERE. 

MMAVA .-CHECK FOR MEM MGHT. 

12$ ;8R IF NO MEM MGMT. 
#200. arKlPAR2 .-UPDATE MEM MGMT REG TO NEXT 4K, 

#40000. R2 .RESET ADDRESS POINTER TO BEGINNING OF BANK. 

RO .UPDATE BANK POINTER. 

R1 .-...HI 64K. 

1$ :6R IF MORE BANKS. 
(SP>*-.a#KIPAR2 ;;POP STACK INTO a#KIPAfi2 

20$ ;G0 CHECK IF ANY ERRORS FOUND. 

RO .-UPDATE POINTER TO NEXT BANK. 

1$ ;8fi IF MORE BANKS. 
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59-77 



SEO 0094 



87A3 


020242 


005704 




87AA 


020244 


001003 




8745 


020246 


004567 


AA7*)C A 

003250 


(2) 


020252 


025716 




8746 


020254 






(2) 


020254 


01 2637 


000116 


(2) 


020260 


012637 


AAA 4 1 / 

000114 


(2) 


020264 


012604 




(2) 


020266 


012603 




(2) 


020270 


rt^ '^Z A^ 

012602 




(2) 


020272 


A^ '^Z A^ 

012601 




(2; 


020274 


A1 ^Z AA 

012600 




8747 


020276 


AAA*) A 7 

000207 




8748 








8749 








8750 








8751 








8752 


020300 






(2) 


020300 


A1 AT/ 

01 0346 






020302 


Ai Z. 7AT 


161522 


D'ye / 

8754 


020306 


005713 




07CC 


020310 


AA1 ✓ A^ 

001402 




or bo 




AACATT 
005055 




eye*? 


U^U J 1 4 


AAA77/ 

000^ 7h 




o/'->o 


0<:0j 16 






(2) 


02Uj 16 


A1 liLAT 




0 7CO 


A^AT^A 


AAA0A7 

OOOcOr 




8760 








8761 








8762 








or 63 








8764 








8765 








8766 


020322 


A1 7 

01 026 z' 


16057^ 


O'Of 


020326 


AACrtA7 


1 603 7 d 


8768 


020332 


000450 




8769 








0 77A 

0770 


020354 


A1 / TiL7 

01456/' 


1 606£0 


8/^ /^l 


020540 


A1 ixd^y 


loOoio 


0770 


020544 


f\r\r\/ A*^ 
00040*: 




8775 








Of fH 


020546 


A1 1 1^7 

01 \Do7 


1 iLAX.AiL 

loOoOo 


Q77C 

Of O 


02055<: 


A1 AOiL7 

010<:o7 


1 0034<: 


o77b 


020356 


AAA/ 1 / 

000414 




0777 

0777 








D770 


020560 


A1 A0^7 

010<:6r 


160554 


077Q 
8/^ 


020364 


AAC1^7 

005567 


1 JinC TA 

1 O0550 




AOAT7A 
0203/^0 


000407 




07o\ 








8782 


A0AT70 

0203/^2 


A1 A1X7 

010567 


1 O056c 


Or O^ 


Ucvjf O 


\J 1 vcOr 


1 OvJ 1 O 


8784 


020402 


^62767 


000002 160510 


8785 


020410 


010067 


160510 


8786 


020414 


010167 


160506 


8787 


020420 


000207 




8788 









20$: 



21$: 



TST R4 

BNE 21$ 

JSR R5. $PRINT 

.WORD NOPES 

MOV (SP)*.a#116 

MOV (SP)*,ar''i4 

MOV (SP)*.R4 

MOV (SP)*.R3 

MOV (SP)*,R2 

MOV (SP)*.R1 

MOV (3P)*,R0 

RTS PC 



CHECK IF ANY PARITY ERRORS DETECTED. 
BR IF ERRORS DETECTED. 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS Of MESSAGE TO BE TYPED 



;;POP STACK 
;;POP STACK 
;;POP STACK 
;;POP STACK 
;;POP STACK 
;;POP STACK 
;;POP STACK 
.•RETURN. 



INTO arii6 
INTO afll4 
INTO R4 
INTO R3 
INTO R2 
INTO Rl 
INTO RO 



***************************************************************** 

•ROUTINE TO CLEAR ALL PARITY REGISTERS PRESENT 

CLRPAR: 

;;PUSH R3 ON STACK 



1$: 



2$: 



MOV 
MOV 

TST 
BEQ 
CLR 
BR 

MOV 

RTS 



R3.-(SP) 
.MPRX. R3 
(R3) 
2$ 

a(R3)* 
1$ 

(SP)*. R3 
PC 



GET PARITY REGISTER TABLE POINTER. 
CHECK FOR THE TABLE TERMINATOR. 
BR IF DONE ALL PARITY REGISTERS. 
CLEAR THE PARITY REGISTER. 
BR FOR MORE 

;;POP STACK INTO R3 
.•RETURN. 



.S8TTL SUBROUTINES TO SET UP DATA FOR ERROR PRINTOUT ROUTINE. 
■ **************************************************************** 

THESE ROUTINES ARE USED TO TRANSFER DATA TO COMMON TAG AREA (.$CMTAG) 
;* FOR ERROR PRINTOUT BY .$ERROR t .$ERRTYP ROUTINES FROM **SYSMAC**. 
■ • ********* 

SPRNT: MOV R2. $GDADR ;SAVE THE ADDRESS UNDER TEST. 

.•SHOULD BE DATA IS "0". 



;GET THE PARITY REGISTER ,M>DRESS. 
;GET THE CONTENTS OF THE PARITY REG. 



MOV 


R2, 


$GDADR 


CLR 


$GDDAT 




BR 


SPRNTB 




MOV 


-(R3) , 


$TMPO 


MOV 


a(R3)*, 


$TMP1 


BR 


SPRNTO 




MOV 


(R3), 


$TMPO 


MOV 


R2, 


$GDADR 


BR 


SPRNTA 




MOV 


R2. 


$GDADR 


DEC 


$6DADR 




BR 


SPRNTA 




MOV 


R3, 


$TMPO 


MOV 


R2, 


$GDADR 


SUB 


ft2. 


$GDADR 


MOV 


RO. 


$GDDAT 


MOV 


Rl. 


$BDDAT 


RTS 


PC 





;GET THE PARITY REGISTER ADDRESS. 
;6ET THE MEMORY ADDRESS BEING TESTED 
;8R TO COMMON SECTION. 

;GET THE MEMORY ADDRESS BEING TESTED 
.•ADJUST IT FOR PRINTOUT. 
;BR TO COMMON SECTION. 

;GET THE DATA IN R3. 

;GET THE MEMORY ADDRESS BEING TESTED 

.•ADJUST IT FOR PRINTOUT. 

;6ET WHAT THE DATA SHOULD BE 

;6ET WHAT THE DATA WAS 

.•RETURN TO ENTER ERROR ROUTINES 



J 



CZQHCGO 0-^2i,K MEMORr EXERCISER. 
C7QMCG.P11 12-mR-80 13:07 

8789 
8790 
8791 
8792 

8793 020422 005710 

8794 020424 001007 

8795 020426 005760 000002 

8796 020432 001004 

8797 020434 004567 003062 
(2) 020440 026276 

(1) 

8798 020442 000475 

8799 020444 

(2) 020444 010146 

(2) 020446 010246 

(2) 020450 010346 

(2) 020452 010446 

8800 020454 012701 000001 

8801 020460 005002 

8802 020462 012703 ^77777 

8803 020466 010304 

8804 020470 030110 

8805 020472 001014 

8806 020474 030260 000002 

8807 020500 001011 

8808 020502 105703 

8809 020504 001042 

8810 020506 162703 000001 

8811 020512 005604 
8812 

8813 020514 004567 003002 
(1) 020520 025527 

8814 020522 000410 

8815 020524 105703 

8816 020526 001431 
8817 

3818 020530 062703 000001 

8819 020534 005504 

8820 020536 004567 002760 

(1) 020542 025517 

8821 020544 

(2) 020544 010346 

(2) 020546 010446 

8822 020550 006303 

8823 020552 006104 

8824 020554 006003 

8825 020556 010446 
(1) 

(3) 
(3) 

(3) 020560 013746 177776 
(3) 020564 004767 004104 
M) 020570 003 

(1) 020571 000 

8826 020572 010346 
fl) 
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SUBROUTINE TO TYPE OUT A WAP OF 4IC BANK. 

RO POINTS TO THE HAP UPON ENTERING THIS ROUTINE. 



SEO 0095 



TYPfWP: TST 
BNE 
TST 
BNE 
JSR 
.yORD 



1$: 



2S: 



3S: 



4S: 



BR 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

BIT 

BNE 

BIT 

BNE 

TST8 

BNE 

SUB 

SBC 

JSR 

.WORD 

BR 

TST8 

BEQ 

ADD 
ADC 
JSR 
.WORD 



(RO) 
1$ 

2(R0) 
1$ 
R5. 
NOMEM 

6$ 



SPRINT 



Rl.-(SP) 
R2,-(SP) 
R3.-(SP) 
R4.-(SP) 
#81 TO. R1 
R2 



#-1. 
R3. 
R1. 
3$ 
R2. 
3$ 
R3 
5S 
*1. 
R4 

R5. 

TO 

4S 

R3 

5$ 

*1. 

R4 

R5. 

FROM 



R3 
R4 
(RO) 

2(R0) 



R3 



SPRINT 



R3 

SPRINT 



CHECK IF ANY MEMORY IN MAP...LO 64k. 
BR IF MEMORY IN MAP. 
...HI 64K. 

BR IF MEMORY IN MAP. 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS Of MESSAGE TC BE TYPED 

'NO MEMORY FOUND." 

EXIT 

.•PUSH R1 ON STACK 

.•PUSH R2 ON STACK 

.•PUSH R3 ON STACK 

.•PUSH R4 ON STACK 

SET UP BANK POINTER... LO 64K. 

...HI 64K. 

SET UP ADDRESS POINTER TO -1. 

HI BITS OF ADDRESS AS WILL. 

CHECK THE MAP FOR THIS BANK. 

BR IF THIS BAWC PRESENT. 

CHECK HI 64K MAP. 

BR IF THIS BAM( PRESENT. 

CHECK FOR PREVIOUS PRINTftJT. 

8R IF ALREADY TYPED "TO" 

BACK UP TO LAST ADR OF PREVIOUS BANK. 

...HI ADDRESS BITS. 

GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
GO TO TYPE THE ADDRESS. 
CHECK FOR PREVIOUS TYPEOUT. 
BR IF ALREADY TYPE 'TROM". 

POINT TO FIRST ADDRESS OF THIS BANK. 
...HI BITS OF ADDRESS. 
GO PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 



MOV R3.-(SP) .-.PUSH R3 ON STACK 

MOV R4.-(SP) .-.PUSH R4 ON STACK 

ASL R3 ;8IT 15 INTO C-8IT 

ROL R4 ;8IT 15 INTO R4. 

ROR R3 .-RESTORE BITS 14-0. 

MOV R4.-(SP) ;;SAVE R4 FOR TYPEOUT 

j.-TYPE ADDRESS BITS 21-15 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC««. 



MOV 

JSR 

.BYTE 

.BYTE 

MOV 



arpsw, 

PC. 

3 

0 

R3.-(SP) 



-(SP) 
STYPOS 



PUT THE PROCESSOR STATUS ON THE STACK 
60 TO THE SUBROUTINE 
.•TYPE 3 DIGIT(S) 
.•SUPPRESS LEADING ZEROS 
;SAVE R3 FOR TYPEOUT 
;TYPE ADDRESS BITS 14-0 
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SEO 0096 



(3) 

(3) 

(3) 

(5) 

(1) 

(1 ) 
8827 

(2) 
8828 
8829 
8830 
8831 
8832 
8833 

(2) 

(2) 

(2) 
883A 
8835 
8919 

(1 

(2 

(1 

n 

(1 

(1 

(1 

(1 

(1 

(1 

(1 

(1 

(1 

(1 

(3 
(3 
(3 
(3 
(3 
(3 
(1 
(1 
(1 
(1 
M 
(1 
(1 
(1 
(1 
(1 
( 1 
C 
1 

' 1 
( ' 



020574 
020600 
020604 
020605 
020606 
020610 
020612 
020616 
020620 
020622 
020624 
020626 
020630 
020632 
020634 
020636 



020640 



020640 
020644 
020650 
020652 
020654 
020662 



020666 
020672 
020700 
020704 
020710 
020712 
020714 
020720 
020722 
020722 
020730 



013746 
004767 
005 
001 
012604 
012603 
062703 
005504 
006301 
006102 
103321 
012604 
012603 
012602 
012601 
000207 



013746 
004767 
012504 
010516 
032777 
001117 



020664 000416 



013746 
012737 
005737 
012637 
000466 
022626 
012637 
000426 

032777 
001407 



1 7777b 
004070 



020000 



THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A 'TRAP" INSTRUCTION AS CALLED FOR BY ••SYSnAC**. 



5$: 



6S: 



MOV »»PSW. -(SP) 

JSR PC. STYPOS 

•BYTE 5 

.8YTE 1 

MOV fSP)*.R4 

MOV (SP)*.R3 

ADD *20000. R3 

ADC R4 

ASL R1 

ROL R2 

BCC 2$ 

MOV (SP)*.R4 

MOV (SP)*.R3 

MOV (SP)*,R2 

MOV (SP)*.R1 

RTS PC 



.PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
;;TYPE 5 DIGIT(S) 
.-.TYPE LEADING ZEROS 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
.•UPDATE TO NEXT BANK. 
:...HI ADDRESS BITS. 
; SHI FT POINTER... LO 64K. 
;...HI 64K. 
:BR IF MORE BANKS. 
;;P0P STACK INTO R4 
;;P0P STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO Rl 
.•RETURN. 



.S8TTL SCOPE HANDLER ROUTINE 



1 77776 
001524 



040000 160256 



•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NIWB£R(STSTI^) INTO THE DISF»LAY REG. (DISPLAY<7:0>) 
•AND LOAD THE ERROR FLAG ($€RFLG) INTO 0iSPLAY<15:08> 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINF ARE: 
•SW14=1 LOOP ON TEST 

• SW11--1 INHIBIT ITERATIONS 
•SW09=1 LOOP ON ERROR 

•SW08=1 LOOP ON TEST IN SWR<4:0> 

•CALL 

• SCOPE ;;SCOPE=IOT 
SSCOPE : 

;• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
;• WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



000004 
020712 
177060 
000004 



000004 



000004 



000400 1602^0 



MOV 
JSR 
MOV 
MOV 
BIT 

;**###START OF 
SXTSTR: BR 

MOV 
MOV 

TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;*****END OF 

BIT 
BEO 



.PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
.•SAVE MINIMIS BLOCK MASK NEXT TEST. 
.PUT RETURN PC ONTO STACK. SIMULATE JSR PC. 
.-.LOOP ON PRESENT TEST? 
;;YES IF SW14=1 
FOR THE XOR TESTER***/*/* 

;;IF RUWING ON THE "XOR" TESTER CHANGE 
;;THIS INSTRUCTION TO A "NOP" (NOP 240) 
;;SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TI«E OUT ON XOR? 
.-.RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 
;; CLEAR THE STACK AFTER A TIME OUT 
.-.RESTORE THE ERROR VECTOR 
.•;LOOP ON THE PRESENT TEST 
XOR TESTER##*## 

;;LOOP ON SPEC. TEST? 
.•;8R IF NO 



a#PSW. -(SP) 
PC. SCKSWR 
(R5)*. R4 
R5. (SP) 
«BIT14.aSWR 
SOVER 
CODE 
6$ 

a#ERRV£C,-CSP) 
#5S.»rERRVEC 
4*1^7060 
(SP)*,a»ERRVEC 
SSVLAD 
(SP)*.(SP)* 
(SP)*,a(rERRVEC 
7S 

CODE FOR THE 

«aiT08.aswR 

2S 
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(1 ) 


020732 


017746 


160202 






MOV 


aswR.-(SP) 


;SET DESIRED TEST Nl/1. FROM SWR 


(1) 


020736 


042716 


000340 






BIC 


#fSWRMK,(SP) 


.STRIP AWAY LNOESIRED BUS 


(1 ) 


0207A2 


122667 


16013*. 






CMPS 


(SP)*.$TSTNM 


;0N THE RIGHT TEST'' 


(1 ) 


0207A6 


001465 








BEO 


SOVER 




;8R IF YES 


(1) 


020750 


105767 


160127 




2$: 


TST8 


SERFLG 




.HAS AN ERROR OCCURRED? 


(}) 


020754 


001421 








BEO 


3$ 




;8R IF NO 


n ) 


020756 


126767 


160133 


160117 




CMPB 


SERMAX.SERFLG 


.MAX, ERRORS FOR THIS TEST OCCURRED' 


(1 ) 


0:V64 


101015 








BHI 


3$ 




:8R IF NO 


(1) 


02u766 


032777 


001000 


160144 




BIT 


«8JT09,aSWR 


.LOOP ON ERROR? 


(1) 


020774 


001404 








BEO 


4S 




;8R IF NO 


(i> 


020776 


016767 


160106 


160102 


7$: 


MOV 


$LPERR,$LPADR 


.•SET LOOP ADDRESS TO LAST SCOPE 


(1) 


021004 


000446 








BR 


SOVER 






(1) 


021006 


105067 


160071 




4S: 


CLR8 


SERFLG 




;2ER0 THE ERROR FLAG 


(1) 


021012 


005067 


160152 






CLR 


STIMES 




.•CLEAR THE NUr«£R OF ITERATIONS TO MAKF 


(1 ) 


021016 


000415 








BR 


IS 




.•ESCAPE TO THE NEXT TEST 


(1) 


021020 


032777 


004000 


160112 


3$: 


BIT 


<«IT11,aSWR 


.•INHIBIT ITERATIONS? 


(1) 


021026 


001011 








BNE 


IS 




;8R IF YES 


(1) 


021030 


005767 


160156 






TST 


SPASS 




;IF FIRST PASS OF PROGRAM 


(1) 


021034 


001406 








BEO 


IS 




INHIBIT ITERATIONS 


(1) 


021036 


005267 


160042 






INC 


SICNT 




.•INCREMENT ITERATION COUNT 


(1 ) 


021042 


026767 


160122 


160054 




CMP 


STIMES. SICNT 


.•CHECK THE NUMBER OF ITERATIONS ^WD£ 


(1) 


021050 


002024 








BGE 


SOVER 




;8R IF MORE ITERATION REQUIRED 


(1) 


021052 


012767 


000001 


160024 


1$: 


MOV 


*1. SICNT 


.-REINITIALIZE THE ITERATION COUNTER 


(1 ) 


021060 


016767 


000552 


160102 




MOV 


SMXCNT, STIMES 


.-SET Nl/BER OF ITERATIONS TO DO 


(1) 


021066 


105267 


160010 




SSVLAD : 


INC6 


nsim 




;COl/JT TEST NLMBERS 


n ) 


021072 


116767 


160004 


160110 




MOVB 


STST>#1.STESTN ; 


;SET TEST NUTCER IN APT MAILBOX 


H) 


021100 


011667 


160002 






MOV 


(SP).SLPAOR 


.SAVE SCOPE LOOP ADDRESS 


(1) 


021104 


011667 


160000 






MOV 


(SP) .SLPERR 


.SAVE ERROR LOOP ADDRESS 


(1) 


021110 


005067 


160056 






CLR 


SE SCAPE 




.•CLEAR THE ESCAPE FROM tRRQR ADDPESS 


(1) 


021114 


112767 


000001 


157773 




MOVB 


#1.SERMAX 


.•ONLY ALLOW 0N£(1) lRROR ON NEXT TEST 


n ) 


021122 


016777 


157754 


160012 


SOVER: 


MOV 


STSTf#1,aOISPLAY ; 


.DISPLAY TEST NUMBER 


(1) 


021130 


016716 


157752 






MOV 


SLPADR.(SP) 


.FUDGE RETURN ADDRESS 


(3) 


021134 


020516 






INSERT : 


CMP 


R5. 


(SP) 


CHECK FOR LOOP ON TEST. 


(3) 


021136 


001402 








BEO 


IS 




BR IF START NEXT TEST. 


(3) 


021140 
021144 


000167 


000470 






JMP 


ENDINS 




JMP IF LOOP ON LAST TEST. 


(3) 


012767 


037777 


160434 


1$: 


MOV 


M57777, 


BLKMSK ; 


SET 8K BOLNDRY MASK. 


(3) 


021152 


005767 


160034 






TST 


SPASS 




CHECK FOR PASS 0. 


(3) 


021156 


001404 








6EQ 


2S 




8R If PASS 0 


(3) 


021160 


126727 


157716 


000021 




CMPS 


STSTNM. 


#21 ; 


CHECK IF IN SECTION 3. 


(3) 


021166 


103002 








BHIS 


3S 




BR IF IN SECTION 3. 


(3) 


021170 


006267 


160412 




21: 


ASR 


6LKMSIC 




RESET BOUNDRY TO 4K. 


(3) 


021174 


016767 


160362 


160362 


3f; 


MOV 


FSTADR. 


TMPFAD ; 


GET FIRST ADDRESS. 


(3) 


021202 


005767 


157372 






t«;t 


RELOCF 




CHECK IF PRG RELOCATED. 


(3) 


021206 


001430 








BEO 

BIT 


4S 




8R IF NOT RELOCATED. 


(3) 


021210 


052777 


000040 


157722 




#SW05. 


aSWR ; 


CHECK IF LOC 0-776 TO BE PROTECTED. 


(3) 


021216 


001424 








BEO 


4S 




BR IF SW NOT SET. 


(3) 


021220 


026727 


160340 


001000 




CMP 


TMPFAD, 


#1000 • 


CHECK IF NOT BEING TESTED. 


(3) 


021226 


103020 








BHIS 


4S 




BR IF ALREADY PROTECTED. 


(3) 


021230 


012767 


001000 


160326 




MOV 


#1000. 


TMPFAD ; 


RESET FIRST ADDRESS. 


(3) 


021236 


052767 


000001 


160324 




BIS 


#8IT0, 


FADMAP ; 


SET FLAG IN FIRST BANK. 


(3) 


021244 


026727 


160324 


001000 




CMP 


LSTADR. 


#1000 ; 


CHECK IF GONE PAST LAST ADR. 


(3) 


021252 


101006 








BHI 


4S 




BR IF ENOUGH MEMORY. 


(5) 


021254 


004567 


002242 






JSR 


R5. 


SPRINT ': 


GO PRINT OUT THE FOLLOWING MESSAGE. 


(5) 


021260 


026747 








.WORD 


NOMTST 




ADDRESS OF MESSAGE TO BE TYPED 
■NO MEMORY TESTED" 


(4) 


















(3) 


021262 


016716 


160356 






MOV 


.TST32. 


(SP) ; 


ADJUST RETURN ADR FOR ABORT. 
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021266 
021270 
021276 
021504 
021312 
021320 
021326 
021332 
021334 
021542 
021544 
021352 
021356 
021360 
021362 
021366 
021370 
021374 
021400 
021406 
021410 
021416 
021424 
021430 
021432 
021436 
021444 
021446 
021454 
021462 
021470 
021472 
021500 
021502 
021510 
021512 
021516 
021520 
021524 
021526 
021526 
021532 

021534 
021556 



021542 
021546 
021552 
021553 
021554 
021556 
021562 
021570 
021576 



000207 
016767 
016767 
016767 
046767 
046767 
005767 
001011 
032767 
001405 
042767 
005067 
005704 
001503 
030467 
001416 
050467 
005267 
032767 
001006 
046767 
046767 
030467 
001414 
040467 
032767 
001006 
046767 
046767 
036767 
001004 
036767 
001404 
026767 
101406 
005767 
001017 
005767 
001014 

004567 
026773 

005046 
116716 



013746 
004767 
003 
001 
000427 
062716 
062767 
012767 
016705 



160300 
160232 
160226 
157264 
157260 
157660 

000005 

177774 
160154 



160176 

160170 
160164 
017777 

160154 
160150 
160146 

160140 
017777 

160150 
160124 
160102 

160074 

160070 

160012 

160006 

001770 



157540 



1 mit 

003122 



000004 
000004 
017777 
157762 



160500 
160224 
160220 
160210 
160204 



160166 
160156 



VER 
SCOPE 



4$: 
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EQ 0098 



160156 

160112 
160106 



160132 

160054 
160050 
160112 

160104 

160054 



10S: 



lit: 



12$: 

13$: 
14$: 

15$: 



RTS 

MOV 

MOV 

MOV 

BIC 

BIC 

TST 

BNE 

BIT 

BEQ 

BIC 

CLR 

TST 

BEO 

BIT 

BEQ 

BIS 

INC 

BIT 

BNE 

BIC 

BIC 

BIT 

BEQ 

BIC 

BIT 

BNE 

BIC 

BIC 

BIT 

BNE 

BIT 

BEO 

CMP 

8L0S 

TST 

BNE 

TST 

BNE 



JSR 
.WORD 

CLR 

novB 



CHECK FOR FIRST PASS 

8R IF ^<0T FIRST PASS. 

CHECK IF FIRST TWO BANKS AVAIlABlF, 

NOT TESTING FIRST 2 BANKS. 

CLR ALL BUT FIRST 2 BANKS. 



PC 'ABORT 
LSTADR. TMPLAD "GET LAST ADDRESS. 
SAVTST. TSTMAP -GET TEST MAP. LO 64K. 
SAVTST*2.TSTMAP*2 .-..HI 64K. 
PRGMAP. TSTMAP -DON'T TEST OVER THE PROGRAM. 
PftGMAP*-2.TSTMAP*2 
$PASS 
10$ 

#3. TSTMAP 
10$ 

#177774, TSTMAP 
TSTMAP+2 
R4 
20$ 

R4. TMPFAD 
11$ 

R4, TMPFAD 
TMPFAD 

#MASK4K. TMPFAD 
11$ 

FADMAP. TSTMAP 
FADMAP*2.TSTMAP+^ 

R4, TMPLAD ; CHECK IF LAST ADR ON BLOCK BOUNORY. 
;8R IF ON BLOCK BOUNDRY. 

.•ADJUST LAST ADR DOUN TO NEXT BLOCK BOUNDRY. 
.•CHECK IF ADJUSTED TO 4K BOUNDRY. 
:8R IF NOT ON 4K BOUNDRY. 
.SKIP TESTING LAST BANK. 
LAI>MAP^2 TSTMAP-*^2 
FADMAP. LADMAP ."CHECK IF FIRST AND LAST IN SAME BANK. 
13$ :8R IF IN SAME BANK. 

FADMAP*2.LADMAP+2 ....UPPER 64K, 



CHECK 
BR IF 



CHECK FOR A MINIMlfl BLOCK SIZE. 
8R IF NO MIN BLOCK SIZE. 

IF FIRST ADR ON BLOCK BOUNDRY. 
FIRST ADR ON BLOCK BOUNORY. 
ADJUST FIRST ADR TO END OF BLOCK. 
FIRST ADR TO FIRST ADR OF NEXT BLOCK. 
CHECK IF FIRST ADR REACHED 4K BOUNDRY. 
BR IF NOT ON 4K BOUNDRY. 
DON'T TEST FIRST BANK. 



12$ 

R4. TMPLAD 
#MASK4K. TMPLAD 
12$ 

LADMAP. TSTHAP 



14$ 

TMPLAD, TMPFAD 
15$ 

TSTMAP 
16$ 

TSTMAP+2 
16$ 



BR IF FIRST AND LAST NOT SAME BANK. 
CHECK IF ANY MEMORY LEFT. 
BR IF NO MEMORY TO TEST. 
CHECK IF ANY BANKS LEFT TO TEST! I 
BR IF TEST MAP NOT EMPTY. 
CHECK FOR ANY BANKS. 
BR IF TEST MAP NOT EMPTY. 



R5. 

SKPMES 

-(SP) 
$TSTNM, 



$PRINT 



;G0 PRINT OUT THE FOLLOWING MESSAGE. 
; ADDRESS OF MESSAGE TO BE TYPED 
; "SKIPPING TEST #" 
; CLEAR THE WORD ON THE STACK. 
;PUT THE DATA ON THE STACK. 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



(SP) 



157316 
157770 



16$: 
20$: 



MOV a»PSW, -(SP) 

JSR PC. $TYPOS 

.BYTE 3 

.BYTE 1 

BR ENDINS 

ADD *4, (SP) 

ADD #4. $LPADR 

MOV «MASK4K,FADMSK 

MOV TMPFAD, R5 



PUT THE PROCESSOR STATUS ON THE STACK 
GO TO THE SUBROUTINE 
TYPE 3 DIGITS. 
TYPE LEADING ZEROS. 
RETURN TO SKIP TEST. 
SKIP THE SKIP ON RETURN. 
ADJUST THE LOOP ADR PAST THE SKiP. 
GET 4K MASK. 
GET FIRST ADR. 
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SEO 0099 



(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(3 
(1 

8920 
(2 
(2 
(2 

892 

n 

(2 

( 
{ 
( 

! 
( 
( 
( 
( 
( 
( 
( 
( 

(3 
(3 



021602 
021606 
021610 
021612 
021620 
021624 
021630 
021632 
021634 
021636 



021640 
021644 



040567 
006505 
001374 
012767 
016705 
040567 
006305 
001374 
000207 
000004 



013746 
004767 



157760 



21S 



017777 
157752 
157750 



157760 



BIC 
ASL 
BNE 
MOV 

nov 

BIC 
ASL 
BNE 

ENOINS: RTS 
IMXCNT 



FADMSK 



22$ 



R5. 

R5 
21S 

«nASK4K.LADnSK 

TMPLAD. R5 

R5. LADMSK 

R5 

22$ 

PC 



177776 
000524 



021650 



(3) 


021650 


013746 


177776 






PWV 


(3) 


021654 


004767 


000514 






JSR 


(2) 


021660 


062716 


000002 






ADD 


(1) 


021664 


105267 


157213 




7$: 


INC8 


(1) 


021670 


001775 








BEQ 


(1) 


021672 


016777 


157204 


157242 




MOV 


CI) 


021700 


032777 


002000 


157232 




BIT 


(1) 


021706 


001403 








BEQ 


(2) 


021710 


004567 


001606 






JSR 


(2) 


021714 


001174 








.WORD 


(1) 


021716 


005267 


157170 




1$: 


INC 


(1) 


021722 


011667 


157170 






MOV 


(1) 


021726 


162767 


000002 


157162 




SUB 


(1) 


021734 


117767 


157156 


157152 




M0V8 


(1) 


021742 


032777 


020000 


157170 




BIT 


(1) 


021750 


001005 








BNE 


(1) 


021752 


004767 


000116 






JSR 


(2) 


021756 


004567 


001540 






JSR 


(2) 


021762 


001201 








.WORD 


(1) 


021764 








20$: 




M) 


021764 


122767 


000001 


157232 




CMP8 


(1) 


021772 


001007 








BNE 


(^) 


021774 


116767 


157114 


000004 




MOVB 


(1) 


022002 


004767 


002044 






JSR 


f 1) 


022006 


000 






21$: 


.BYTE 



CLR MASK ABOVE LOWEST BIT OF FIF«bT ADR. 
MOVE LOWEST BIT uP ONE . 
LOOP UNTIL OVERFLOW. 
SET MASK BITS 
GET LAST ADR. 

CLR ALL MASK BUS ABOVE LOWEST BIT IN I AST ADR. 
MOVE LOWEST BIT OF LAST ADR UP ONE . 
LOOP UNTIL OVERFLOW. 
EXIT SCOPE ROUTINE BACK TO TEST. 
.MAX. NLHBER Of ITERATIONS 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE 

• WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSrtAC**. 

MOV a#PSW. -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
JSR PC. $CKSWR ;60 TO THE SUBROUTINE 
S8TTL ERROR HANDLER ROUTINE 

'•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO $ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW15=1 HALT ON ERROR 

♦SW13=1 INHIBIT ERROR TYPEOUTS 

•SW10=1 BELL ON ERROR 

*SW09=1 LOOP ON ERROR 

•CALL 

* ERROR N ;;ERROR=EMT AND N ERROR ITEM NlfBER 
$ERROR * 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $CKSWR ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



a»PSW. -(SP) 
PC. $CKSWR 
02. (SP) 
$ERFLG 
7$ 

$TSTI«.aOI SPLAY 
«BIT10,aSWR 

1$ 

R5. $PRINT 

SBELL 

$ERTTL 

{SP),$eRRPC 

#2,$ERRPC 

a$ERRPC.$ITEMB 

48IT13,aSWR 

20$ 

PC.$£RRTYP 
R5. $PRINT 
$CRLf 

irAPTENV,$ENV 
2$ 

$JTEMB.21$ 
PC.$ATY4 

0 



;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
.•ADJUST POINTER PAST CODE WORD. 
;;SET THE ERROR FLAG 
;; DON'T LET THE FLAG GO TO ZERO 
;; DISPLAY TEST Nl#BER AND ERROR FLAG 
;;B£LL ON ERROR? 
' *N0 - SKIP 

•60 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
;; COUNT THE NUMBER OF ERRORS 
.-.GET ADDRESS OF ERROR INSTRUCTION 

; .-STRIP AND SAVE THE ERROR ITEM CODE 
;;SKIP TYPtOUT IF SET 
;;SKIP TYPEOUTS 
;;G0 TO USER ERROR ROtTINE 
;60 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS or MESSAGE TO BE TYPED 

.-.RUNNING IN APT MODE 
.-.-NO, SKIP APT ERROR REPORT 
.-.-SET ITEM NUMBER AS ERROR NUMBE- 
.-.-REPORT FATAL ERROR TO APT 
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SEO 0100 



(5) 


022022 


013746 


177776 






MOV 


a#PSW, -(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


(3) 


022026 


004767 


000342 






JSR 


PC, SCKSWR 


;G0 TO THE SUBROUTINE 


(1) 


022032 


032777 


001000 


157100 


3$: 


BIT 


«8IT09,aSUR 


;;LOOP ON ERROR SWITCH SET? 


(1) 


022040 


001402 








BEQ 


4$ 


;;8R IF NO 


(1) 


022042 


016716 


157042 






MOV 


$lP£RR.(SP) 


;; FUDGE RETURN FOR LOOPING 


(1) 


022046 


005767 


157120 




4$: 


TST 


$£ SCAPE 


;; CHECK FOR AN ESCAPE ADDRESS 


(1) 


022052 


001402 








BEO 


5$ 


;;8R IF NONE 


(1) 


02205A 


016716 


157112 






MOV 


f ESCAPE. (SP) 


;. -FUDGE RETURN ADDRESS FOR ESCAPE 


(1) 


022060 








5$: 








(1) 


022060 


022737 


014232 


000042 




CMP 


nENDAD.S4r42 


;;ACT-11 AUTO-ACCEPT? 


(1) 


022066 


001001 








BNE 


6S 


: .-BRANCH IF NO 


(1) 


022070 


000000 








HALT 




;;Y£S 


(1) 


022072 








6S: 








(2) 


022072 


000207 








RTS 


PC 





022007 

022010 
022012 
022016 
022020 



000 

000777 
005777 
100005 
000000 



157122 



22S: 
2$: 



.BYTE 
BR 
TST 
BPL 
HALT 



0 

22S 

aswR 

3S 



.APT ERROR LOOP 
.-HALT ON ERROR 
.SKIP IF CONTINUE 
.HALT ON ERROR! 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SCKSWR ROUTINE 
UIHTOUT USING A •'TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**, 



.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 



.-•THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETEWINE WHICH 
.••ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE 'tRROR TABLE" (SERRT8). 
.-•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



022074 
022074 
022100 
022102 
022104 
022106 
022112 



004567 
001201 
010046 
005000 
156700 
001007 



022114 016746 



022120 
022124 
022130 
022132 
022140 
022146 
022150 
022152 
022154 
022156 
022162 
022166 
022170 



013746 
004767 
000513 
016767 
166767 
005300 
006300 
006300 
006300 
066700 
012067 
001406 
004567 



001422 

157002 
156776 



177776 
002570 

156760 
156434 



157456 
000006 

001326 



$ERRTYP: 



JSR 
.WORD 
MOV 
CLR 
BISB 
BNE 



R5, 
SCRLF 
RO.-(SP) 
RO 

SITEMB.RO 
1S 



SPRINT 



.-GO PRINT OUT THE FOLLOWING MESSAGE, 
.-ADDRESS OF MESSAGE TO BE TYPED 
■ SAVE RO 

•PICKUP THE ITEM INDEX 



.-IF ITEM NlfBER IS ZERO. JUST 
.TYPE THE PC OF THE ERROR 
;;SAVE SERRPC FOR TYPEOUT 
- 'ERROR ADDRESS 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
WIHTOUT USING A "JRM>" INSTRUCTION AS CALLED FOR BY **SYS«AC»«. 



nov 



SERRPC, -(SP) 



157354 
157346 



IS: 



MOV a*PSW, -(SP) 

JSR PC, STYPOC 

BR lOS 

MOV SERRPC. SVERPC 

SUB RELOCF. SVERPC 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADD .ERRTB. RO 

MOV {R0)*.2$ 

BEO 3S 

JSR R*". SPRINT 



.-PUT THE PROCESSOR STATUS ON THE STACK 
.-GO TO THE SUBROUTINE 

.GET OUT 
.-SET UP VIRTUAL PC FOR TYPEOUT. 
.-MAKE VIRTUAL IF NOT ALREADY. 

.-ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



.-FORM TABLE POINTER 

.-PICKUP 'tRSOR MESSAGE" K)INTER 
.-SKIP TYPEOUT IF NO POINTER 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 



K 8 
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SEO 0101 



(1 
(2 
(2 
(1 
(1 
(2 
(1 
(2 
(2 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(2 
(4 
(4 
(4 
(4 
(1 
(1 
(2 
(4 
(4 
(4 
(4 
(1 
(1 
(1 
(2 
(2 
(1 
(1 
(2 
(2 
(4 
(4 
(4 
(4 
(2 
(2 
(1 
(1 
(2 
(2 
(1 

n 
(1 

n 

(2 
(2 
(1 
( 1 



022174 
022176 
022202 
022204 
022210 
022212 
022216 
022220 
02222^ 
022226 
022230 
022232 
022254 
022240 
022242 
022246 
022250 
022252 



022254 
022260 
022264 
022266 
022270 



022272 
022276 
022302 
022304 
022312 
022314 
022316 
022322 
022324 
022324 
022326 



022330 
022334 
022340 
022341 
022342 
022344 
022546 
022352 
022354 

022356 
022360 
022562 
022366 
022370 
022372 



000000 
004567 
001201 
012067 
001406 
004567 
000000 
004567 
001201 
010146 
012001 
001451 
066701 
012000 
066700 
105720 
001006 
013146 



013746 
004767 
000426 
100406 
013146 



01 3746 
004767 
000417 
122760 
001004 
013146 
0Oh767 
000407 

005046 
113116 



013746 
004767 
003 
001 
005711 
001404 
004567 
022372 
000734 

012601 
012600 
004567 
001201 
000207 
000011 



001320 
000006 
001304 
001276 

156340 
156552 



177776 
002434 



177776 
002140 



2$ 



002640 



1 77776 
002554 



001150 



001154 



5$: 



4S: 



5$: 



6S 



.WORD 
JSR 
.UORD 
MOV 
BEQ 
JSR 
.WORD 
JSR 
.UORD 
MOV 
MOV 
BEQ 
ADD 
MOV 
ADD 
TST8 
BNE 
MOV 



SPRINT 



SPRINT 
SPRINT 



0 

R5, 
SCRLF 
(R0)*.4$ 
5$ 
R5, 
0 

R5. 
SCRLF 
R1.-<SP) 
(R0)*,R1 
9S 

RELOCF. R1 
(R0)+.R0 
RELOCF. RO 
(RO)* 
7S 

a(R1)*,-(SP) 



.'tRROR MESSAGE" POINTER GOES HERE 
;60 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 

.•PICKUP 'DATA HEADER" POINTER 
;SKIP TYPEOUT IF 0 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 

:'r>AJA HEADER" POINTER GOES HERE 
;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.ADDRESS OF MESSAGE TO BE TYPED 
'SAVE R1 

•PICKUP 'DATA TABLE" POINTER 
;8R IF NO DATA TO BE TYPED 
.ADJUST POINTER 

.PICKUP 'DATA FORMAT" POINTER 
.•ADJUST POINTER. 

.•CHECK THE FORMAT 
;8R IF NOT 16-61 T OCTAL 
;;SAVE a(R1)* FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOC ROUTINE 
WIHTOUT USING A 'IRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 
MOV aiTPSW, -(SP) ;PUT THE PROCESSOR STATUS ON THE STACK 
JSR PC. STYPOC ;G0 TO THE SUBROUTINE 



7S: 



BR 
BMI 
MOV 



8S 

17S 

a(Ri)+,-(SP) 



.■BRANCH IF NOT DECIMAL 
.-.SAVE a(Rl)+ FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPDS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



}77777 ^ 77777 17S: 



18S: 



MOV a»PSW. -(SP) 

JSR PC. STYPDS 

BR 8S 

CMP8 #-1 . -1 (RO) 

BNE 18S 

MOV a(R1)*. -(SP) 

JSR PC. STYPAD 

BR 8S 



CLR 
MOVB 



-(SP) 
a(R1)*. (SP) 



PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

SKIP 

CHECK FOR 18-6IT ADDRESS FORMAT. 

BR IF NOT 18-6IT ADDRESS FORMAT. 

PUT THE DATA ON THE STACK. 

DETERMINE THE PHYSICAL ADDRESS AND TYPE 

SKIP 



IT. 



: CLEAR THE WORD ON THE STACK. 
;PUT THE DATA ON THE STACK. 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPOS ROUTINE 
WIHTOUT USING A "TRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



8S: 



9S: 
10S: 



IIS: 



MOV 


a«psw. 


-(SP) 


;PUT THE PROCESSOR STATUS ON THE STACK 


JSR 


PC. 


STYPOS 


;G0 TO THE SUBROUTINE 


.BYTE 


5 




.TYPE 3 DIGITS. 


.BYTE 


1 




.•TYPE LEADING ZEROS. 


TST 


(R1) 




;IS THERE ANOTHER NLMBER? 


BEQ 


9S 




'BR IF NO 


JSR 


R5. 


SPRINT 


.GO PRINT OUT THE FOLLOWING MESSAGE. 


.WORD 


IIS 




.•ADDRESS OF MESSAGE TO BE TYPED 


BR 


6S 




.•LOOP 


MOV 


(SP)*.R1 




.RESTORE R1 


MOV 


(SP)*.RO 


.-RESTORE RO 


JSR 


R5. 


SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


.WORD 


SCRLF 




.ADDRESS OF MESSAGE TO BE TYPED 


RTS 


PC 




.RETURN 


.ASCIZ 


/ 


/ 


.TAB CHARACTER. 
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SEO 010? 



(1) 
8925 

1 

-> 

L. 
1 
1 

2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
1 
2 
2 
2 
A 
4 
4 
4 
2 
2 



022l7i, 
022402 
022404 
022410 
022412 
022416 
022422 
022426 
022430 
022436 

022440 
022444 
022446 
022446 
022452 
022454 



022460 
022464 
022470 
022474 
022476 
022500 
022502 
022506 

022510 
022514 



022767 
001104 
105777 
100101 
117746 
042716 
022726 
001072 
126727 
001466 

004567 
023321 

004567 
023326 
016746 



013746 
004767 
004567 
023337 
005046 
005046 
105777 
100375 

117746 
042716 



177776 
002230 
001026 



156436 



156432 
177600 



.EVEN 

,S8^TL TTY INPUT ROUTINE 



,ENABL LS8 



000176 

156534 

156530 
177600 
000007 

156500 000001 

001056 

001050 
155516 



156536 SCKSWR: 



.-•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
.-•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
.■•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
.••WHEN OPERATING IN TTY FLAG MODE. 



SGTSWR: 



CMP 
BNE 
TST8 
8PL 
MQV8 
BIC 
CMP 
BNE 

cMpe 

6E0 

JSR 
.WORD 



/rSWREG.SWR 
15$ 
a$TKS 
15$ 

a$TKB--(SP) 
*»C177.(SP) 
#7,(SP)* 
15$ 

$AUT06,«1 
15$ 



R5. 

$CNTLG 



$PRINT 



IS THE SOFT-SWR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO, DON'T WAIT AROIMD 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL G? 

NO. RETURN TO USER 

ARE WE RULING IN AUTO-MODE? 

BRANCH IF YES 



;60 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 



JSR 
.WORD 
MOV 



R5. 
SMSWR 

SURE6,-(SP) 



$PRINT 



;60 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
;;SAVE SWREG FOR TYPEOUT 
THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE $TYPOC ROUTINE 
WIHTOUT USING A 'TRAP" INSTRUCTION AS CALLED FOR BY **SYSMAC*^. 



19$: 
7$: 



MOV 
JSR 
JSR 
.WORD 
CLR 
CLR 
TST8 
BPL 

MOVB 
BIC 



-(SP) 
$TYPOC 
$PRINT 



a«PSW, 

R5. 
$nNEW 

-<SP) 
-(SP) 
a$TKS 
7$ 



a$T<6,-(SP) 
#*C177.(SP) 



PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

GO PRINT OUT THE FaLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

.CLEAR COUNTER 

.-THE NEW SWR 

;CHAR THERE? 

;IF NOT TRY AGAIN 

;;PICK UP CHAR 
;;MAKE IT 7-61 T ASCII 



022520 021627 000025 

022524 001006 

022526 004567 000770 

022532 023314 

022534 062706 000006 

022540 000756 



9$: CMP (SP),*25 

BNE 10$ 

JSR R5. $PRINT 

.WORD $CNTLU 

20$: ADD *6.SP 

BR 19$ 



;IS IT A CONTROL -U.' 
'BRANCH IF NOT 

60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 
.•IGNORE PREVIOUS INPUT 
.-LET'S TRY IT AGAIN 



022542 021627 000015 

022546 001023 

022550 005766 000004 

022554 001403 



10$: 



CMP 
BNE 
TST 
6EQ 



(SP).#15 
16$ 

4(SP) 
11$ 



IS IT A <CR>? 
BRANCH IF NO 
YES, IS IT THE 
BRANCH IF YES 



FIRST CHAR? 



CZQMi 
CZQM 
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022556 
022564 
022570 
022570 
022574 
022576 
022604 
022606 
022614 
022616 
022622 
022626 
022630 
022654 
022636 
022642 
022646 
022650 
022652 
022654 
022656 
022662 
022666 
022670 
'022670 
022674 
022676 

.DSABL LS8 
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SEO 0105 



016677 


000002 


156354 




MOV 


2(SP),aSUR 


062706 


000006 




11$: 


ADD 


#6.SP 






14$: 






004567 


000726 






JSR 


R5. $PR 


001201 








.WORD 


$CRLF 


126727 


156333 


000001 




CMPe 


$INTAG.#1 


001003 








BNE 


15$ 


0^2777 


000100 


156330 




MOV 


#100,a$TKS 


000002 






15$: 


RTI 




004767 


001142 




16$: 


JSR 


PC.$TYPEC 


021627 


000060 






CMP 


(SP).#60 


002420 








BLT 


18$ 


021627 


000067 






CMP 


(SP).#67 


003015 








BGT 


18$ 


042726 


000060 






BIG 


#60.(SP)» 


005766 


000002 






TST 


2(SP) 


001403 








BEQ 


17$ 


006316 








ASL 


(SP) 


006316 








ASL 


(SP) 


006316 








ASL 


(SP) 


005266 


000002 




17$: 


INC 


2(SP) 


056616 


1 77776 






BIS 


-2(SP).(SP) 


000705 






18$: 


BR 


7$ 


004567 


000626 






JSR 


R5, $PR 


001200 








.UORD 


$QUES 


000716 








BR 


20$ 



;;SAVE NEW SWR 
;; CLEAR UP STACK 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 
.•ADDRESS OF MESSAGE TO BE TYPED 
;;RE-EN/«LE TTY KBD INTERRUPTS? 
; .-BRANCH IF NOT 

;;RE-EN^LE TTY KBD INTERRUPTS 

.-.RETURN 

.-.-ECHO CHAR 

;;CHAR < 0? 

; .-BRANCH IF YES 

;.-CHAR > 77 

.-.-BRANCH IF YES 

.-.-STRIP-OFF ASCII 

.-.-IS THIS THE FIRST CHAR 

.-.-BRANCH IF YES 

.-.-NO. SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
;;KEEP COIWT OF CHAR 
.-.-SET IN NEW CHAR 
;.-GET THE NEXT ONE 

;G0 PRINT OUT THE FOLLOWING MESSAGE, 
.-ADDRESS OF MESSAGE TO BE TYPED 
; .-SIMULATE CONTROL -U 



•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*CALL: 

• RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

• RETURN HERE ;; CHARACTER IS ON THE STACK 

• .-.-WITH PARITY BIT STRIPPED OFF 



022700 
022702 
022710 
022714 
022716 
022724 
022732 
022740 
022742 
022746 
022750 
022754 
022760 
022764 
022766 
022770 
022776 
023000 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 



000004 
156230 

156224 
177600 
000004 

156176 

156172 
177600 
000021 



000004 
000004 



000002 



000004 
000004 
000023 



$RDCHR: MOV 
MOV 



1$: 



2$: 



000140 
0001 75 



3$: 



TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 

TST8 

BPL 

M0V8 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 

CMP 



(SP).-(SP) 

4(SP5,2(SP) 

a$TKS 

1$ 

a$TK8.4(SP) 
#*C<177>,4(SP) 
4(SP).#23 
3$ 

a$TKS 
2$ 

a$TKB.-(SP) 

#*C177,(SP) 

(SP)*,#21 

2$ 

1$ 

4(SP).#140 
4$ 

4(SP),#175 



;;PUSH DOWN THE PC 

;;SAVE THE PS 

;;WAIT FOR 

;;A CHARACTER 

;;READ THE TTY 

;;GET RID OF JUNK IF ANY 

;;IS IT A CONTROL -S? 

; .-BRANCH IF NO 

;;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

;;GET CHARACTER 

;;fWCE IT 7-61 T ASCII 

;;IS IT A CONTROL -Q? 

;;IF NOT DISCARD IT 

;;YES, RESLME 

;;IS IT UPPER CASE? 

; .-BRANCH IF YES 

;;IS IT A SPECIAL CHAR? 
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SEQ 010^ 



( 
( 
( 
( 
( 
( 

(3 



023006 
023010 
023016 



003003 
042766 
000002 



000040 000004 



4$: 



BGT 
BIC 
RTI 



4$ 

#40.4(SP) 



BRANCH IF YES 
MAKE IT UPPER CASE 
GO BACK TO USER 



•THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
•CALL: 



RDLIN 

RETURN HERE 



INPUT A STRING FROM THE TTY 
ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 



023020 
023022 
023024 
023030 
023034 



010346 
005046 
012703 
022703 
101467 



SRDLIN: 



023304 
023314 



1$: 
2$: 



R3.-(SP) 
-(SP) 

#$TTYIN.R3 
#$TTYIN+8..R3 
4$ 



SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 



MOV 
CLR 
MOV 
CMP 

BLOS 

• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDCHR ROUTINE 

• WIHTOUT USING A '7RAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC^^. 



(3) 


023036 


013746 


177776 






MOV 


a»psu. -(SP) 


.-PUT THE PROCESSOR STATUS ON THE STACK 


(3) 


023042 


004767 


177632 






JSR 


PC. SRDCHR 


;G0 TO THE SUBROUTINE 


(1) 


023046 


112613 








M0V8 


(SP)+.(R3) 


;;GET CHARACTER 


(1) 


023050 


122713 


000177 




10$: 


CMPe 


#1 77. (R3) 


;;IS IT A RUBOUT 


(1) 


023054 


001024 








BNE 


5$ 


;;BR IF NO 


(1) 


023056 


005716 








TST 


(SP) 


;;IS THIS THE FIRST RUBOUT? 


(1) 


023060 


001010 








BNE 


6$ 

*'\.9$ 


;;BR IF NO 


(1) 


023062 


112767 


000134 


000212 




MOVE 


;;TYPE A BACK SLASH 


(2) 


023070 


004567 


000426 






JSR 


R5, SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023074 


023302 








.WORD 


9$ 


.•ADDRESS OF MESSAGE TO BE TYPED 


(1) 


023076 


012716 


Mill! 






MOV 


*-1.(SP) 


;;SET THE RUBOUT KEY 


(1) 


023102 


005303 






6$: 


DEC 


R3 


.-.•BACKUP BY ONE 


(1) 


023104 


020327 


023304 






CMP 


R3./(r$TTYIN 


;; STACK EMPTY? 


(1) 


023110 


103441 








BLO 


4$ 


;;BR IF YES 


(1) 


023112 


111367 


000164 






MOVE 


(R3).9$ 


; .-SETUP TO TYPEOUT THE DELETED CHAR. 


(2) 


023116 


004567 


000400 






JSR 


R5, SPRINT 


.-GO PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023122 


023302 








.WORD 


9$ 


.-ADDRESS OF MESSAGE TO BE TYPED 


(1) 


023124 


000741 








BR 


2S 


;;G0 READ ANOTHER CHAR. 


(1) 


023126 


005716 






5$: 


TST 


(SP) 


.-.-RUBOUT KEY SET? 




C23130 


001407 








BEQ 


7$ 

#'\.9S 


;;BR IF NO 


(1) 


023132 


112767 


000134 


000142 




M0V8 


.-.-TYPE A BACK SLASH 


(2) 


023140 


004567 


000356 






JSR 


R5. SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023144 


023302 








.WORD 


9$ 


.•ADDRESS OF MESSAGE TO BE TYPED 


(1) 


023146 


005016 








CLR 


(SP) 


;; CLEAR THE RUBOUT KEY 


(1) 


^73150 


122713 


000025 




7$: 


CMP8 


*25.(R3) 


;.-IS CHARACTER A CTRL U? 


(1) 


023154 
023156 


001004 








BNE 


8S 


;.-BR IF NO 


(2) 


004567 


000340 






JSR 


R5. SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023162 


023314 








.WORD 


SCNTLU 


.-ADDRESS OF MESSAGE TO BE TYPED 


(1) 


023164 


000717 
122713 








BR 


IS 


.-.-GO START OVER 


(1) 


023166 


000022 




8S: 


CMP8 


#22. (R3) 


.-;1S CHARACTER A "*R"? 


(1) 


023172 


001014 








BNE 


3S 


; .-BRANCH IF NO 


(1) 


023174 


105013 








CLR8 


(R3) 


;; CLEAR THE CHARACTER 


(2) 


023176 


004567 


000320 






JSR 


R5. SPRINT 


.-GO PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023202 


001201 








.WORD 


SCRLF 


.-ADDRESS OF MESSAGE TO BE TYPED 


(2) 


023204 


004567 


000312 






JSR 


R5. SPRINT 


.-GO PRINT OUT THE FOLLOWING MESSAGE. 


(2) 


023210 


023304 








.WORD 


STTYIN 


.-ADDRESS OF MESSAGE TO BE TYPED 


(1) 


023212 


000706 








BR 


2S 


;.-G0 PICKUP ANOTHER CHACTER 


(1) 


023214 








4S. 








(?) 


023214 


004567 


000302 






JSR 


R5. SPRINT 


;G0 PRINT OUT THE FOLLOWING MESSAGE. 
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SEO 0105 



023220 

023222 

023224 

023230 

023234 

023236 

023242 

023244 

023250 

023254 

023256 

023260 

023262 

023264 

023272 

023300 

023302 

023303 

023304 

023314 

023321 

023326 

023334 

023337 

023344 



023350 
023352 
023360 
023362 
023364 
023366 



023366 
023372 
023376 
023400 
023404 
023406 
023410 
023412 
023414 



001200 
000700 
111367 
004567 
023302 
122723 
001272 
105063 
004567 
001202 
005726 
012603 
011646 
016666 
012766 
000002 

000 

000 
000010 
052536 

136 
005015 
020075 

040 
036440 



011646 
016666 
010046 
010146 
010246 



013746 
004767 
012600 
010067 
005001 
005002 
112046 
001420 
122716 



000052 
000266 

000015 

}77777 
000246 



000004 
023304 



005015 
006507 
053523 
000 
047040 
000040 



000002 
000004 



000 
000012 
020122 



3$: 



9$: 

STTyjN 
$CNTLU 
JCNTLG 
SnSUR: 



.WORD SOUES 

BR 1 S 

Move (R3).9$ 

JSR R5. SPRINT 

.WORD 9$ 

CMP8 #15. (R3)* 

BNE 2$ 

CLR8 -1(R3) 

JSR R5. SPRINT 

.WORD SLF 

TST (SP)* 

MOV (3P)*.R3 

MOV (SP),-(SP) 

MOV 4(SP).2(SP) 

MOV #$TTriN,4(SP) 

RTI 

.8rTF 0 

.erTE 0 

.8LKB 8. 

.ASCIZ /•U/<15><12> 

.ASCIZ /•G/<15><12> 

.ASCIZ <15><12>/SUR = 



ADDRESS Of MESSAGE TO BE TYPED 

.CLEAR THE BUFFER AND LOOP 

.•ECHO THE CHARACTER 

GO PRINT OUT THE FOLLOWING MESSAGE. 

ADDRESS OF MESSAGE TO BE TYPED 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CLEAR RETURN (THE 15) 
60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TO BE TYPED 

CLEAN RUBCUT KEY FROM THE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 
TERHIMATOR 

RESERVE 8 BYTES FOR TTY INPUT 
CONTROL 'li" 
CONTROL "G" 



THE 



053505 SMNEW: .ASCIZ / NEW = / 

.S8TTL READ AN OCTAL NUMBER FROM THE TTY 

•****«*****************«******«****•************•***•**••••••**• 

^THIS ROUTINE WILL READ AN OCTAL (ASCII) NlfBER FROM THE TTY AND 
♦CHANGE IT TO BINARY. 

•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
♦OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE Nlff^ER MUST 
•THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
•CALL: 



ROOCT 

RETURN HERE 



READ AN OCTAL NUMBER 

LOW ORDER BITS ARE ON TOP OF THE STACK 

HIGH ORDER BITS ARE IN SHIOCT 



000004 000002 



1 77776 
y77U22 

000102 



000060 



SRDOCT: MOV (SP),-(SP) 
MOV 4(SP).2(SP) 
MOV RO.-(SP) 
MOV R1,-(SP) 
MOV R2.-(SP) 

IS: 

;• THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE SRDLIN ROUTINE 
;• WIHTOUT USING A 'IRAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC^^. 



PROVIDE SPACE FOR THE 
I^FUT NlfBER 
PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 



2S: 



MOV aiTPSW. -(SP) 

JSR PC. SRDLIN 

MOV (SP)*,RO 

MOV R0.5S 

CLR Rl 

CLR R2 

MOVE (RO)*.-(SP) 

BEO 3S 

c/>pe #'0.(SP) 



;PUT THE PROCESSOR STATUS ON THE STACK 
;G0 TO THE SUBROUTINE 
;GET ADDRESS OF 1ST CHARACTER 
.-AND SAVE IT 
; CLEAR DATA WORD 



PICKUP THIS CHARACTER 

IF ZERO GET OUT 

MAKE SURE THIS CHARACTER 





0-1 MEMOfty 


cXcRCl 


CZQMCG. 


P11 


12-«AR-80 


13:07 


(1) 


023420 


003026 




(1) 


023422 


122716 


000067 


(1) 


023426 


002423 




(1) 


023430 


006301 




(1) 


023432 


006102 




(1) 


023434 


006301 




(1) 


023436 


006102 




(1) 


023440 


006301 




(1) 


023442 


006102 




(1) 


023444 


042716 


177770 


(1) 


023450 


062601 




(1) 


023452 


000756 




(1) 


023454 


005726 




(1) 


023456 


010166 


000012 


(1) 


023462 


010267 


000032 


(3) 


023466 


012602 




(3) 


023470 


012601 




(3) 


023472 


012600 




(1) 


023474 


000002 




(1) 


023476 


005726 




(1) 


023500 


105010 




(2) 


023502 


004567 


000014 


(1) 


023506 


000000 




(2) 


023510 


004567 


000006 


(2) 


023514 


001200 




(1) 


023516 


000723 




(1) 


023520 


000000 




8925 








8926 








8927 








8928 








8929 








8930 








8931 


023522 


012567 


000016 


8932 


023526 


066767 


155046 


8933 








(1) 








(1) 


023534 


013746 


177776 


(1) 


023540 


004767 


000004 


8934 


023544 


000000 




8935 


023546 


000205 




8936 








8937 








(1) 








(2) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(7) 








(1) 








(1) 









C 9 

VER MACVII 30Av1052) 12-WR-80 13:10 

READ AN OCTAL NLTBER FROM THE TTV 
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SEO 0106 



3$: 



5$: 



SHIOCT: 



BGT 

CMP8 

BLT 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

PTI 

TST 

CLR8 

JSR 

.WORD 

JSR 

.WORD 

BR 

.WORD 



4S 

#'7.(SP) 
4S 

R1 
R2 
R1 
R2 
R1 
R2 

#*C7.(SP) 

(SP)+,R1 

2S 

(SP)* 

R1J2(SP) 

R2. SHI OCT 

(SP)*.R2 

(SP)*,R1 

(SP)*,RO 



(SP)* 
(RO) 

g'- 

R5. 
SOUES 
1S 
0 



SPRINT 
SPRINT 



:;IS AN OCTAL DIGIT 



• ••2 
* « ^ 
.•.••8 

; .-STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 
. "LOOP 

;; CLEAN TERMINATOR FROM STACK 
;;SAVE THE RESULT 

;;POP STACK INTO R2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
* 'RETURN 

;; CLEAN PARTIAL FROM STACK 
;;SET A TERMINATOR 

;G0 PRINT OUT THE FOLLOWING MESSAGE. 

;G0 PRINT OUT THE FOLLOWING MESSAGE, 
.•ADDRESS OF MESSAGE TO BE TYPED 
;;TRy AGAIN 

::HIGH ORDER BITS GO HERE 



i SUBROUTINE TO PASS RELOCATED MESSAGE ADDRESSES TO' THE STYPE ROUTINE. 

• CALL; JSR R5. SPRINT 

• <I1ESSA6E VIRTUAL ADDRESS> 

• *************************************************************** 

SPRINT: MOV (R5)*. IS ;GET THE MESSAGE VIRTUAL ADDRESS. 

ADD RELOCF, IS ;MAKE IT PHYSICAL. 

THE NEXT TWO INSTRUCTIONS PROVIDE AN INTERFACE TO THE STYPE ROUTINE 
WIHTOUT USING A '7RAP" INSTRUCTION AS CALLED FOR BY ••SYSMAC**. 



MOV arpsw, -(sp) 

JSR PC, STYPE 
IS: .WORD 0 
RTS R5 

.S8TTL TYPE ROUTINE 



PUT THE PROCESSOR STATUS ON THE STACK 

GO TO THE SUBROUTINE 

CONTAINS THE PHYSICAL MESSAGE ADDRESS. 

RETURN. 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NLfCER OF NULL CHARACTERS AFTER A LINE FEED. 



•N0TE1 
•N0TE2 
•N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NlfBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

•1) USING A TRAP INSTRUCTION 
• TYPE .MESADR 

•OR 

TYPE 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



CZQM 
C7QM 



GO 0-12^K MEMOftr EXERCISER. 16K VER HACYll 30A(1052) 

G.P11 12-flAfi-80 13:07 TYPE ROUT 11^ 



0 9 

12-nAR-80 



13:10 PAGE 59-90 



SEO 0107 











• * 
• 

- ft 








\JCjJJ\J 


in57^\7 
1 yjj f Of 


1 55403 










■15 THFftF A TFRMINAI '' 


\JCJJJ'* 


1 v\J\AJc 










IS 

1 9 g 


;BR IF YES 


\JcjjjO 


(VYYYV) 








HAI T 

1 If • 




'halt here if no terminal 




fWU.5n 








op 


3$ '■ 


- 1 FAVF 




nino46 






1 9 > 


MOV 

1 iVT 


RO -(SP) 


;SAVE RO 






000002 

VAAA/VC 






MOV 

1 iV » 


a2(SP) RO 

VC ^ / # r* V 9 


•GET ADDRESS OF ASCIZ STRING 




1 22767 


000001 

vww • 


1 55426 






#APTENV SENV 


'RUNNING IN APT MODE 




00101 1 










62$ 


*N0 QO C^CK fOR APT CCMSOLF 


n?v>oo 


1 32767 

1 -?C r O r 


000100 

V W 1 W 


15541 7 




Bi Tfi 


#APT SPOOL SENVM ' 

"r^B 1 «Jf \^^^C 0 wC*¥ »• 1 p 


■SPOOL MESSAGE TO APT 

0 1 lb «#«#r^VC ' V rl0 




VV 1 Hv^ 








RFQ 


62$ 

VC ' y 


•NO GiD CHECK FOR CONSOLE 




V 1 \AJOf 


VWAA/H 






MOV 
nv V 


RO 61S 

*^V 0\J \ 9 g 


* SETUP MESSAGE ADDRESS FOR APT 




V\^ f \Jf 


000??? 

VWCCC 






JSR 


PC SATY3 


■SPOOL MESSAGE TO APT 




000000 
www 






61 1- 


WORD 


0 ' ; 


-MESSAGE ADDRESS 




132767 

1 ^C ' U ' 


000040 


155575 


62t ■ 

OC 9 • 




#APTCSUP SENVn ' 


■APT CONSOLE SUPPRESSED 




001005 










60$ 


; YES, SKIP TYPE (XJT 




1 12046 

1 1 C V^ V 






2$- 

C * • 


M0V6 


(RO)^ -(SP) 


•PUSH CHARACTER TO BE TYPED ONTO STACK 




001005 








BNF 

WC 


4$ ; 


•BR IF IT ISN'T THE TERMINATOR 




005726 








TST 


(SP)* ; 


•IF TERMINATCIR POP IT OFF THE STACK 




01 2600 

V 1 CwW 






60S: 


MOV 


(SP)+ RO 


'RESTORE RO 




062716 

WC ' ■ V 


000002 

vvwvc 




3$- 


ADD 


#2,(SP) 


•ADJUST RETURN PC 




000002 

vwwc 








RTI 




.'RETURN 


023650 


122716 

ICC* IV 


000011 

WW ■ 1 




4$: 


CMPB 


#HT (SP) 


■BRANCH IF <HT> 


V/C j'" 


001431 








BEQ 

uc ~ 


8$ 




025656 


122716 

1 CC r 1 V 


000200 

WVC VV 






CMPB 


#CRLF (SP) 


•BRANCH IF NOT <CRLF> 


023662 


001007 








BNE 


5$ 




025664 


005726 

' C V 








TST 


(SP) + 


.-POP <CR><LF> EOUIV 


025666 


004567 


1 77630 






JSR 


R5 SPRINT ■ 


GO PRINT OUT THE FOLLOWING MESSAGE. 


VC^^i^' c 


001201 

W I CV I 








SCRLF 






023674 


105067 


000130 

V W 1 -/V 






CLRB 


SCHARCNT 


'CLEAR CHARACTER COUNT 


025700 

VC w 


000754 

WV ' 








BR 


2S 


'GET NEXT CHARACTER 


023702 

VC-/> VC 


004767 


000056 

vvw^v 




5$: 


JSR 


PCSTYPEC ; 


•60 TYPE THIS CHARACTER 


025706 

VC^r w 


1 26726 

1 C V CV 


155244 




6$: 


CMP6 


$FILLC (SP)* 


•IS IT TIME FOR FILLER CHARS, 


025712 

VC ^ r 1 c 


001347 








^E 


2$ 


•IF NO GO GET NEXT CHAR. 


025714 

VC •Jl 1 ~ 


016746 


155234 






MOV 

« IV w 


SNULL -(SP) 


'GET # OF FILLER CHARS. NEEDED 
















;AND THE NULL CHAR. 


023720 


105366 


000001 




7$: 


DECS 


1 (SP) ; 


.'DOES A NULL NEED TO BE TYPED? 


023724 


002770 








BLT 


6$ 


;8R IF NO— GO POP THE NULL OFF OF STACK 


023726 


004767 


000032 






JSR 


PC.STYPEC 


;G0 TYPE A NULL 


023732 


105367 


000072 






DECS 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 


023736 


000770 








BR 


7$ 


.'LOOP 



023740 
023744 
023750 
023756 
023760 
023762 
02376A 
023770 
023772 
024000 



.'HORIZONTAL TAB PROCESSOR 



112716 
004767 
132767 
001372 
005726 
000723 
105777 
100375 
116677 
122766 



OOOOAO 
OOOOU 
000007 



155160 

000002 
000015 



000052 



155152 
000002 



8$: 
9S: 



STYPEC: 



M0V8 

JSR 

BITB 

BNE 

TST 

BR 

TSTB 

8PL 

MOVE 

CMP8 



*• .(SP) 
PC.STYPEC 
#7. SCHARCNT 
9$ 

(SP)* 
2S 

asTPs 

STYPEC 

2(SP),aSTP8 

#CR.2(SP) 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT IMTIL PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETIJRN? 



CZQMCGO MEMORY EXERCISER. 16K VER MACYll 

C7QMCG.P11 12-mR-80 13:07 TYPE ROUTINE 

(1) 024006 001003 BNE 

(1) 024010 105067 000014 CLR8 

(1) 024014 000406 BR 

(1) 024016 122766 000012 000002 ^S: C/1P8 

(1) 024024 001402 BEQ 

(1) 024026 105227 INC8 

M) 024030 000000 tCHARCNT: .WORD 

(1) 024032 000207 STVPEX: RTS 

8938 .S8TTL APT CO 



024034 112767 000001 000376 1ATY1: M0V8 

024042 112767 000001 000366 $ATY3: M0V8 

024050 000403 BR 

024052 112767 000001 000360 $ATY4: M0V8 
024060 JATYC: 

024060 010046 MOV 

024062 010146 MOV 

024064 105767 000346 TST8 

024070 001450 BEO 

024072 122767 000001 155124 CMPB 

024100 001031 BNE 

024102 132767 000100 155115 BITS 

024110 001425 BEQ 

024112 017600 000004 MOV 

024116 062766 000002 000004 ADD 

024124 005767 155054 1$: TST 

024130 001375 BNE 

024132 010067 155062 MOV 

024136 105720 2$: TST8 

024140 001376 BNE 

024142 166700 155052 SUB 

024146 006200 ASR 

024150 010067 155046 MOV 

024154 012767 000004 155022 MOV 

024162 000413 BR 

024164 017667 000004 000016 3$: MOV 

024172 062766 000002 000004 ADD 

024200 016746 153572 MOV 

024204 004767 177340 JSR 

024210 000000 4$: .WORD 

024212 5$: 

024212 105767 000221 TST8 

024216 001422 BEQ 

024220 017600 000004 MOV 

024224 062766 000002 000004 ADD 

024232 012701 001344 MOV 

024236 005711 6$: TST 

024240 100404 BMI 

024242 020021 CMP 

024244 001406 BEO 

024246 005721 TST 

024250 000772 BR 

024252 026701 i 55234 8$: CMP 

024256 001402 BEQ 



30A(1052> ll-MAR-80 13:10 PAGE 59-91 



1$ ; .-BRANCH IF NO 

tCHARCNT ;; YES— CLEAR CHARACTER COUNT 

STYPEX ;;EXIT 

#LF.2(SP) ;;IS CHARACTER A LINE FEED"" 

STYPEX ; .-BRANCH IF YES 

(PC)* ;; COUNT THE CHARACTER 

0 ;; CHARACTER COUNT STORAGE 

PC 

lUNICATIONS ROUTINE 



*1.$FFlG ;;T0 REPORT FATAL ERROR 

*1.$MFLG ;;T0 TYPE A MESSAGE 
lATYC 

#1.$FFLG ;;T0 ONLY REPORT FATAL ERROR 

RO.-(SP) ;;PUSH RO ON STACK 

RI.-(SP) ;;PUSH R1 ON STACK 

SMFLG .-.-SHOULD TYPE A MESSAGE? 

5S - * IF NOT - BR 

#APTENV,»ENV ; -OPERATING UNDER APT? 

3$ ;;IF NOT: BR 

*APTSPOOL,$ENVM ;;SHOULD SPOOL MESSAGES? 

3S * * IF NOT * BR 

a4(SP).R0 ;;GET MESSAGE ADDR. 

#2.4 (SP) .-.-BLMP RETURN ADDR. 

SMSGTYPE ;;SEE IF DONE W/ LAST XMISSION 

1$ * * IF NOT - UAI T 

RO.SMSGAO ;;PUT ADDR IN MAILBOX 

(RO)* ;;FIND END OF MESSAGE 

2S 

SnSGAD.RO ;:SUB START OF MESSAGE 

RO :;6ET MESSAGE LNGTH IN WORDS 

RO.SMSGLGT ;;PUT LENGTH IN MAILBOX 

#4,$«SGTYPE ;;TELL APT TO TAKE MSG. 

5$ 

a4(SP),4$ ;;PUT MSG ADDR IN JSR LINKAGE 
#2,4(SP) iiSU^ RETURN ADDRESS 

1 77776. -(SP) .-.-PUSH 177776 ON STACK 

PC. STYPE ;;CALL TYPE MACRO 

0 

SLFLG .-.-SHOULD LOG AN ERROR? 

10$ ;;IF NOT: BR 

a4(SP),R0 ;;6ET ERROR * 

#2.4 (SP) .-.-BUMP RETURN ADDR. 

mSTAT.RI ; .-POINT TO TABLE START 

(R1) ;;END OF TABLE? 

8S ;:IF SO: BR 

RO.(RI)* ; .-PROPER ENTRY? 

9$ .-.-IF SO: BR 

(Rl)+ .-.-MOVE PAST COUNTER WORD 

6$ .-.-KEEP LOOKING 

SAPTR.RI ;; TABLE FULL? 

10$ ;.-IF SO: BR — NO MORE ROOM 



CZQMCGO 0-1 MEMORY EXERCISER. 
CZQMCG.PM 12-mR-80 13:07 



F 9 

16K VER MACYll 30A(1052) i2-«AR-80 

APT COMMUNICATIONS ROUTINE 
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SEO 0109 



( 1 ) 




OiOO^i 








MOv 


RO, (R1 /♦ 


(1 ) 




AAC ■T 1 ^ 

00521 1 






9»: 


INC 


(Rl ; 


( 1 ) 




i Ac 7z 7 


AAAl C A 

000150 




10»: 


TSTB 


5FFLG 




A^y T^A 


AAi / 1 ^ 








OC A 


12» 


( 1 ) 


02** 272 


AAC 7^ 7 

005/67 


icy 






T C T 

TST 


• f Kit f 


' 1 ) 


AT/ "^"^Z. 

02t*27t 


AAl /IT 

001 '•13 








BEQ 


12» 






AAC 7^ 7 

005 7t7 


icy "^AA 




Ill: 


T C T 

TST 


InSGTYPE 


( 1 ) 




AAi T^C 

001 375 








BNE 


lift 
IIJ 


( 1 ; 




A1 7^^ 7 

01 /^667 


AAAAA/ 

OOOOOA 


1 C y X 70 

OA672 




nOV 


•A(SP/ ,»FATAL 


( 1 1 


ATy T1 / 


Ax 07xi 

062766 


A/\AAA1 

OOOOOA 


AAAAA/ 

OOOOOs 




ADD 


*0 / / CO \ 


( 1 ) 


U<:*» 522 


AAC OZ. 7 


1 C y ^ 






INC 


MCC ^ T DC 

SnSGiTPc 


( 1 ) 




1 ACAZ. 7 


AAA1 A^ 

000106 




li:»: 


CLR8 


»rFL6 


( 1 ; 




1 AC AiL7 


AAA1 Al 






CLR8 


»Lr LG 


( 1 ) 




1 ACAiL7 


AAAA7/ 






r 1 DO 
CLRo 


CMC 1 r 
JMr LG 


( 5) 


AO/ 7/ 0 


A1 OAA1 










(SP/ ♦ ,R1 


C 5 J 


AO/ T/ / 


A1 O^AA 








iAAV/ 


/ CO \ ▲ OA 

(SP^ ♦ ,RU 


/ 1 \ 


AO/ "?/ ^ 


[MU2\Jf 








RTS 


PC 


( 1 ) 


AO/ "iCA 








CAT VJL - 

lAi ro: 






( Dl 


AO/ Ten 


OIUUhO 










OA /CO\ 




AO/ 


A1 iL7nA 


1 CC1 7/ 








CADTfi OA 

S^irt ,RU 


1 ^ \ 


AO/ 


1 Z.07AA 
l02f\AJ 


AAI 7/ / 
001 J**** 






SUB 


MCACTAT OA 

/rJASTAT ,RU 


( 1 ) 


AO/ TX.0 

U<:*» 3o<: 


AAC 7^7 


i5*»616 




l»: 


T C T 

T5 1 


iTiSGTY 


( 1 ) 


AO/ 7/.^ 


AA1 T7Q 








oNt 


1 c 


( 1 ) 


A0/.T7A 


A1 AfUi7 


1 C/ AOi:. 






MAW 


DA CMC/*I /* 

RU, JnSGLG 


\ 1 ) 


AO/ 77/ 


A1 07iL7 


AA1 7/ / 


1 C/ A 1 

1 >*»616 




PlOv 


»»A5TAT .SnSGAD 


( 1 / 


AO/ / AO 


A1 07A7 


A/VWAO 


1 C/ C7/ 




nUv 


A*0 CMC^TV 


\ D> 


AO/ /in 


UlcOUU 








MAvy 


/ CD \ A OA 


I ^ \ 
1 1 ) 


AO/ / 1 0 


\JWC\Jf 








DTC 

K 1 d 


D/" 
PC 


( 1 ) 


AO/ / 1 / 








« A T V 7 . 

»A IT/: 








AO/ / 1 / 


A1 A/V iL 








MOv 


A A / C O \ 


V 1 ) 


A 0/. /. 1 A 


m 07m 


nni 7/ A 
UU 1 






AiAl/ 

PIUV 


A C T A T D 1 


\ 1 1 


AO/./. 00 


(V1^701 
\J\JJf c 1 






1 »: 


T C T 


/D1 \ A 


V 1 I 


no/ /.OA 


1 (W.AO 








□ni 


oc 


^ 1 ^ 


AOZZ. OA 










LLH 


vH 1 / ♦ 


I y \ 
\ 1 1 




fW\77A 
UUU/ f H 








OD 

BK 


1* 


• I ) 










ot • 
c»: 






\ J) 




Ai oA.nA 








Mm/ 


/CD^A OA 

var'.' ♦ ,RU 


\ 1 } 


nOAATA 


fuv>on7 








DTC 


rC 




nOA/ Ttii 


\JW 






SMFLG: 


.BYTE 


A 

0 


^ 1 


nOAAl? 


AAA 






SLFLG: 


.BYTE 


A 
U 


( 1 ) 










SFFLG: 


.BYTE 


A 

V 


(1 ) 




0244A2 








.EVEN 




(1) 




000200 






APTSI2E 


=200 




(1 ) 




000001 






APTENV=001 




(1 ) 




000100 






APTSPOOL=100 




(1) 




OOOOAO 






APTCSUP=040 





8959 

(1 
(1 
(1 
f 1 
(1 
(1 

( I 
1 



.-SET UP NEW ENTRY 

.-BUMP ERROR COUNT 

.■SHOULD REPORT FATAL ERROR? 

;IF NOT: BR 

.•RUNNING UNDER APT? 

;IF NOT: BR 

.•FINISHED LAST MESSAGE' 

;IF NOT: WAIT 

;6ET ERROR * 

;;8LMP RETURN ADDR. 
.TELL APT TO TAKE ERROR 
.•CLEAR FATAL FLAG 
.•CLEAR LOG FLAG 
.•CLEAR MESSAGE FLAG 
;POP STACK INTO Rl 
.-POP STACK INTO RO 
.•RETURN 

.•.•PUSH RO ON STACK 

;6£T SIZE OF STAT TABLE 

;SEE IF DONE LAST COMMUNICATIO^J 

;IF NOT: WAIT 

.SET MESSAGE LENGTH 

.-SET MESSAGE ADDR. 

;TELL APT TO TAKE STATS. 

;POP STACK INTO RO 

.•RETURN 

.•PUSH RO ON STACK 
.•GET START OF TABLE 
.-END OF TABLE? 
•IF SO : BR 
•CLEAR 'error COUNT 
.•KEEP CLEARING 

;POP STACK INTO RO 
.•RETURN 
;MESSG. FLAG 
.-LOG FLAG 
.•FATAL FLAG 



.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

.-•THIS ROUTINE IS USED TO CHANGE A 16-eiT BINARY NUMBER TO A 5-DIGIT 
.••SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
.••NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
.-•BEFORE THE FIRST DIGIT OF THE Nl^R. LEADING ZEROS WILL ALWAVi BE 
.••REPLACED WITH SPACES. 
.••CALL: 



CZQMCGO 0-12<.K ME»«RV 
CZQHCG.Pn 12-MAR-80 



(1) 

(1) 
(1) 
(1) 






(3) 




010046 


(3) 




010146 


(3) 


024446 


010246 


(3) 


024450 


01 0346 


(3) 


024452 


010546 


( 1 ) 


024454 


012746 


< 1 ) 


024460 


016605 


( 1 ) 


024464 


100004 


( 1 ) 


024466 


005405 


( 1 ) 


024470 


112766 


( 1 ) 


024476 


016700 


( 1 ) 


024502 


012703 


( 1 ) 


024506 


060003 


( 1 ) 


024510 


112723 


( 1 ) 


024514 


005002 


( 1 ) 


024516 


016001 


( 1 ) 


024522 


160105 


( 1 ) 


024524 


002402 


( 1 ) 


024526 


005202 


( 1 ) 


024530 


000774 


( 1 ) 


024532 


060105 


( 1 ) 


024534 


005702 


( 1 ) 


024536 


001002 


( 1 ) 


024540 


105716 


( 1 ) 


024542 


100407 


( 1 ) 


024544 


106316 


( 1 ) 


024546 


103003 


( 1 ) 


024550 


116663 


( 1 ) 


024556 


052702 


{ 1 ) 


024562 


052702 


( 1 ) 


024566 


110223 


( 1 ) 


024570 


005720 


( 1 ) 


024572 


020067 


( 1 ) 


024576 


103746 


( 1 ) 


024600 


101002 


( 1 ) 


024602 


010502 


( 1 ) 


024604 


000764 


( 1 ) 


024606 


105726 


( 1 ) 


024610 


100003 


( 1 ) 


024612 


116663 


( 1 ) 


024620 


105013 


(5) 


024622 


012605 


(5) 


024624 


012603 


(3> 


024626 


012602 


(3) 


024630 


012601 


(3) 


024632 


012600 


(2) 


024654 


004567 


(2) 


024640 


024664 


(1 ) 


024642 


016666 


n ) 


024650 


012616 


( 1 ) 


024652 


000002 


1 \ 


024654 


023420 



EXERCISER. ^6IC VER «ACV11 
13:07 CONVERT BINARY 







• * 


P10V 






- * 


TYPDS 






$TVPDS: 










MOV 








MOV 








MOV 








MOV 








MOV 


020200 






MOV 


000020 






MOV 








8PL 








NEG 


000055 


000001 




M0V8 


1 54076 




1$: 


MOV 


024664 






MOV 








ADD 


000040 






M0V8 






2$: 


clr 


024654 






MOV 






3$: 


SUB 








BLT 








INC 








BR 






4S: 


ADD 








TST 








BNE 








TST8 








BMI 






5$: 


ASL8 








BCC 


000001 


1 77777 




MOVB 


000060 




6$: 


BIS 


000040 




7$: 


BIS 








MOVB 








TST 


155044 






CMP 








BLO 








BHI 








MOV 








BR 






8S: 


TST8 








8PL 




1 7777t 




MOVB 






9$: 


CLR8 








MOV 








MOV 








MOV 








MOV 








MOV 


1 fotoc 






JSR 








.yORD 


000002 


000004 




MOV 








MOV 








RTI 






$DT8L : 


10000. 



6 9 

30A(1052) 12-MAR-80 13:10 PAGE 59-93 
TO DECIMAL AND TYPE ROUTINE 



NIJ»1.-(SP) ;;PUT THE BINARY NUMBER ON THE SMCK 

;;G0 TO THE ROUTINE 



RO.-(SP) ;;PUSH RO ON STACK 

RI.-(SP) ;;PUSH R1 ON STACK 

R2.-(SP) ;;PUSH R2 ON STACK 

R3.-(SP) ;;PUSH R3 ON STACK 

R5,-(SP) ;;PUSH R5 ON STACK 

*20200,-(SP) ;;SET BLANK SWITCH AND SIGN 

20(SP).R5 ;;GET THE INPUT NltBER 

1$ ;;8R IF IMHJT IS POS. 

R5 ;;MAKE THE BINARY NLWBER POS. 

#'-,l(SP) ;;MAKE THE ASCII NIWER NEG. 

RELOCF. RO ;GET RELOCATION FACTOR. 

#$D8LK.R3 ;;SETUP THE OUTPUT POINTER 

RO. R3 :ADD IN RELOCATION FACTOR. 

*• .(R3)* ;;SET THE FIRST CHARACTER TO A BLANK 

R2 ;; CLEAR THE BCD NUMBER 

$DT8L(R0),R1 ;;6ET THE CONSTANT 

R1.R5 ;;F0RM THIS BCD DIGIT 

4$ ;;8R IF DONE 

R2 ;; INCREASE THE BCD DIGIT BY 1 

3$ 

R1.R5 ;;ADD BACK THE CONSTANT 

R2 .-.CHECK IF BCD DIGIT=0 

5$ ;;FALL THROUGH IF 0 

(SP) .-.-STILL DOING LEADING O'S? 

7$ ;;BR IF YES 

(SP) ;;MSD? 

6S :;8R IF NO 

1(SP).-1(R3) ;; YES— SET THE SIGN 

#'0.R2 ;;«AKE THE BCD DIGIT ASCII 

.R2 ;.-MAKE IT A SPACE IF NOT ALREADY A DIGIT 

R2.(R3)* .-.-PUT THIS CHARACTER IN THE OUTPUT BUFFER 

(RO)* ;;JUST INCREMENTING 
RO. .EIGHT .-CHECK THE TABLE INDEX 

2$ ;G0 DO THE NEXT DIGIT 

8$ ;.-G0 TO EXIT 

R5.R2 ;.-6£T THE LSD 

6$ .-.-GO CHANGE TO ASCII 

(SP)+ .-.-yAS THE LSD THE FIRST NGN-ZERO? 

9S - 'BR IF NO 

-1(SP).-2(R3) ;!-YES— SET THE SIGN FOR TYPING 

(R3) .-.SET THE TERMINATOR 

(SP) ♦.RS .-.-POP STACK INTO R5 

(SP)*. R3 .-.POP STACK INTO R3 

(SP)*,R2 .-.POP STACK INTO R2 

(SP)*.R1 ;;POP STACK INTO Rl 

(SP)*.RO .-.-POP STACK INTO RO 

R5. SPRINT ;G0 PRINT OUT THE FOLLOWING MESSAGE. 

$D8LK .ADDRESS OF MESSAGE TO BE TYPED 

2(SP).4(SP) ;. ADJUST THE STACK 

(SP) ♦.($?) 

.-.-RETLiRN rO USER 



CZQM 
CZQM 



894C 



H 9 

GO Q-^2<^K MEMORY EXERCISER. 16K VER MACvll 30A(1052) 13-MAR-80 13:10 

G.P11 1?-mR-80 13:07 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
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seo oil 



024656 001750 

024660 000144 

024662 000012 

024664 000004 



024674 
024700 
024706 
024712 
024716 
024720 
024726 
024734 
024742 
024744 
024746 
024750 
024754 
024756 
024762 
024766 
024772 
024776 
025000 
025002 
025004 
025006 
025010 
025012 
025014 
025016 
025022 



soeiK : 

.S8TTL 



1000. 

100. 

10. 

.8LKW 4 
BINARY TO OCTAL 



(ASCII) AND TYPE 



*THIS ROUTINE IS USED TO CHANGE A 16H9iT BINARY NU^BER TO A 6-DIGIT 
•OCTAL (ASCII) NLMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER Of DIGITS TO TYPE 

•CALL; 

; .-NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 

.•;N--1 TO 6 FOR NUMBER OF DIGITS TO TYPE 



MOV 
TYPOS 
•BYTE 
.BYTE 



NLW.-(SP) 



N 
M 



;;M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*$TYPOS OR $TYP0C 



•CALL: 



MOV Nl/1.-(SP) ; .-NUMBER TO BE TYPED 

TYPON ;;CALL FOR TYPEOUT 



•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CAcL: 











MOV 


Nll>1.-(SP) ;;Nlf«ER TO BE TYPED 








• » 


TYPOC 


.-.-CALL FOR TYPEOUT 


017646 


000000 




STYPOS: 


MOV 


a(SP).-(SP) ;;PJCKUP THE MODE 


116667 


000001 


000213 




MOVB 


1(SP).S0FILL ;;LOAD ZERO FILL SWITCH 


112667 


000211 






M0V8 


(SP) ♦.$0M0DE*1 ;;Nlf©ER OF DIGITS TO TYPE 


062716 


000002 






ADD 


02. (SP) ; .-ADJUST RETURN ADDRESS 


000406 








BR 


STYPON 




112767 


000001 


000173 


STYPOC: 


MOVB 


/ri.SOFILL 


•;SET THE ZERO FILL SWITCH 


112767 


000006 


000167 




MOVB 


#6.$0M00E*1 


■;SET FOR SIX(6) DIGITS 


112767 


000005 


000156 


STYrCJN: 


Move 


#5.$0CNT 


■.-SET THE ITERATION COUNT 


010346 








MOV 


R3.-{SP) 


•.-SAVE R3 


010446 








MOV 


R4.-(SP) 


■.-SAVE R4 


010546 








MOV 


R5.-(SP) 


■ 'SAVE R5 


116704 


000147 






MOVB 


$0M0DE*1 .R4 


••GET THE NUMBER OF DIGITS TO TYPE 


005404 








NEG 


R4 




062704 


000006 






ADD 


*6,R4 


•; SUBTRACT IT FOR MAX. ALLOWED 


110467 


000134 






MOVB 


R4.$0MODE 


-.-SAVE IT FOR USE 


116704 


000127 






MOVB 


$0FILL,R4 


•;GET THE ZERO FILL SWITCH 


016605 


000012 






MOV 


12(SP).R5 


• .-PICKUP THE INPUT NL^BER 


005003 








CLR 


R3 


■; CLEAR THE OUTPUT WORD 


006105 






1$: 


ROL 


R5 


■.-ROTATE MSB INTO "C" 


000404 








BR 


3S 


■;G0 DO MSB 


006105 






2$: 


ROL 


R5 


•.-FORM THIS DIGIT 


006105 








ROL 


R5 




006105 








ROL 


R5 




010503 








MOV 


R5.R3 




006103 






3S: 


ROL 


R3 


•.-GET LS8 OF THIS DIGIT 


105367 


000100 






DECB 


SOMODE 


-.-TYPE THIS DIGIT? 


100017 








BPL 


7$ 


■:BR IF NO 



CZQM 
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G.Pn 12-«AR-80 13:07 BI^4AftY TO OCTAL (ASCII) AND TYPE 
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SEO 0112 



89<. 
8942 
8943 
894A 
8945 
8946 
8947 
(1) 
8948 
8949 
8950 
8951 
895? 
8953 
8954 
8955 
8956 
(2) 
(2) 
(2) 
(2) 
8957 
8958 
8959 
8960 
8961 
8962 
8963 
8964 
8965 



025024 
025030 
025032 
025034 
025036 
025040 
025044 
025050 
025054 
025060 
025062 
025066 
025070 
025072 
025074 
025076 
025100 
025102 
025104 
025112 
025114 
025116 
025117 
025120 
025121 
025122 

025124 
025126 
025130 
025132 
025136 
025142 
025146 
025150 
025152 

025154 
025160 



025162 
025162 
025164 
025166 
025170 
025172 
025176 
025200 
025204 
025206 
025214 
025216 
025220 
025222 



042703 
00100^ 
005704 
001403 
005204 
052703 
052703 
110367 
004567 
025116 
105367 
003346 
002402 
005204 
000743 
012605 
012604 
012603 
016666 
012616 
000002 
000 
000 
000 
000 
000000 

005727 
000000 
001010 
005267 
011667 
004767 
000031 
000401 
000000 

005067 
000002 



010046 
010146 
01024O 
010346 
016602 
005003 
005767 
001430 
032737 
001424 
010201 
006101 
006101 



177770 



000060 
000040 
000042 
176442 

000032 



000002 000004 



177770 
1 54024 
174502 



177746 



000012 
153402 
000001 



4$: 
5$: 



7$: 



6$: 



8$: 

SOCNT 
$OFILL: 
SOnODE: 



BIC 

BNE 

TST 

BEQ 

INC 

BIS 

BIS 

M0V8 

JSR 

.WORD 

DEC8 

BGT 

BLT 

INC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

•BYTE 

.UIORD 



#1 77770. R3 

4$ 

R4 

5$ 

R4 

#'0.R3 
#• ,R3 
R3.8$ 
R5. 
8$ 
SOCNT 
2J 
6$ 
R4 
2$ 

(SP)*.R5 

(SP)+.R4 

(SP)*.R3 

2(SP).4(SP) 

(SP)*.(SP) 

0 
0 
0 
0 
0 



SPRINT 



.■ERROR TRAP SERVICE ROUTINE 



ERRTRP: TST 
1$: .UIORD 
BNE 
INC 
MOV 
JSR 
.UIORD 
BR 

2$: HALT 



3$; 



CLR 
RTI 



(PC)* 
0 

2$ 
1$ 

(SP). 
PC. 
31 
3$ 



1$ 



$TMP3 
SERROR 



GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 
60 PRINT OUT THE FOLLOWING MESSAGE. 
ADDRESS OF MESSAGE TC BE TYPED 

COIWT BY 1 

BR IF MORE TO DO 

8R IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NlfBER OF DIGITS TO TYPE 

CHECK IF PREV TRAP TO 4 REPORTED 

CONTAINS ERROR REPORTED FLAG 

BRANCH IF NOT REPORTED 

SET D0U3LE TRAP FLAG. 

SAVE THE BAD PC FOR TYPOUT. 

ERROR (GO TYPE A MESSAGE) 
ERROR TYPE CODE. 
SKIP HALT 

ERROR! SECOND TRAP TO 4 OCCURRED 
BEFORE FIRST WAS PRINTED 



;RETURN TO PROGRAM AND TRY TO RECOVER 



.S8TTL PHYSICAL ADDRESS TYPE ROUTINE 

ROUTINE TO TYPE A PHYSICAL ADDRESS (18 BITS). 
$TYPAD: 

RO.-(SP) 
R1,-(SP) 

R2.-(SP) 
R3,-(SP) 
12{SP). R2 



177572 



MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
TST 
BEQ 
BIT 
BEQ 
MOV 
ROL 
ROL 



R3 
MMAVA 
1$ 
*1. 
1$ 
R2. 
Rl 
Rl 



a#SRO 

Rl 



PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH R3 on STACK 
GET BASE ADDRESS 
WORKING & INDEX REGISTER 
CHECK FOR MEM MGMT AVAILABLE 
BRANCH IF NO MEM MGMT 
CHECK IF MEM MGMT ENABLED 
BRANCH IF MEM MGMT NOT ENABLED 
COPY VIRTUAL ADR 

SHUFFLE BITS 13.14.15 INTO 1.2.5 



J 
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3966 
8967 
8968 
8969 
8970 
8971 
8972 
8975 
8974 
3975 
8976 
8977 
8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
(2) 
8991 
8992 
8993 
8994 
(2) 
(2) 
(2) 
8995 
8996 
(2) 
8997 
8998 
8999 
9000 
9001 
9002 
9003 
9004 
9005 
9006 



025224 
025226 
025230 
025232 
025236 
025242 
025244 
025250 
025252 
025254 
025256 
025262 
025264 
025266 
025270 
025272 
025276 
025300 
025302 
025304 
025306 
025310 
025314 
025320 
025324 
025330 
025332 
025334 
025336 
025340 
025342 
025344 
025346 
025350 
025352 
025356 
025360 
025362 
025363 



9007 
9008 



025364 
025372 
025400 
025406 
025414 
025422 
025430 
025431 
025436 
025444 
025447 



006101 
006101 
006101 
042701 
062701 
011101 
012700 
006301 
006103 
077003 
042702 
060102 
005503 
006302 
006103 
012700 
000404 
006302 
006103 
005301 
001374 
012701 
062703 
110367 
004567 
025362 
005003 
005300 
001360 
012603 
012602 
012601 
012600 
012616 
004567 
027015 
000207 
000 
000 



005015 
024040 
054522 
043501 
024524 
046111 
000 
015 
051117 
035120 
015 



177761 
172340 

000006 



160000 



000006 



000003 
000060 
000036 
176172 



176144 



052113 
042515 
046440 
046505 
040440 
041101 

046412 
020131 
000 
041012 



ROL Rl 

ROL Rl 

ROL Rl 

BIC *1 77761. Rl 

ADD #KIPAR0. Rl. 

MOV (Rl). Rl 

MOV #6. RO 

4S: ASL Rl 

ROL R3 

SOB RO. 4$ 

BIC *1 60000, R2 

ADD Rl . R2 

ADC R3 

1$: ASL R2 

ROL R3 

MOV *6.R0 

BR 3S 

2$: ASL R2 

POL R3 

DEC Rl 

BNE 2$ 

3$: MOV *3.R1 

ADD #60, R3 

nova R3, 8S 

JSR RS, SPRINT 

.WORD 8S 

CLR R3 

DEC RO 

BNE 2$ 

MOV (SP) ♦,R3 

MOV (SP)*,R2 

MOV (SP)+.R1 

MOV (SP)*.RO 

MOV (SP)*, (SP) 

JSR R5, SPRINT 

.WORD FILL? 

RTS PC 

8S: .BYTE 0 

.BYTE 0 



;CLR ALL EXCEPT BITS 1,2.3 

;SET TO APPROPRIATE PAR 

.-GET CONTENTS OF PAR 

;SET UP COUNTER 

.•SHIFT PAR 

;SAVE OVERFLOW BITS 

;CaWT SIX SHIFTS 

.•SAVE BANK BITS 

.-COMPUTE PHYSICAL ADDRESS 

.•MAKE SU?E CARRY ISN'T LOST! 

.•FIRST DIGIT TO R3 

.•DIGIT COUNT 
.•PRINT FIRST DIGIT 



.•DIGIT SHIFT COUNT 

.•MAKE IT AN ASCII DIGIT 

.-LOAD DIGIT INTO MESSAGE 

:60 PRINT OUT THE FOLLOWING MESSAGE. 

.ADDRESS OF MESSAGE TO BE TYPED 

.•CLEAR INDEX 

.DEC DIGIT COWT 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

.-.POP STACK INTO Rl 

;;POP STACK INTO RO 

.•ADJUST THE STACK TO CLEAR DATA 

;G0 PRINT OUT THE FOLLOWING MESSAGE, 

.•ADDRESS OF MESSAGE TO BE TYPED 

•RE TURN 

•ONE DIGIT MESSAGE BUFFER 
.-MESSAGE TERMINATOR 



030461 
047515 
047101 
047105 
040526 
042514 

046505 
040515 



.S8TTL STANDARD PROGR/M MESSAGES 

• A************************************************************** 

VARIOUS MESSAGE PRINTOUTS USED THRUOUT 
THE PROGRVt 

WAMES: .ASCIZ <1S><12>'KT11 (MEMORY MANAGEMENT) AVAILABLE' 



MEMMES: .ASCIZ <1 5x1 2> 'MEMORY MAP: ' 



052131 BYTMES: .ASCIZ <15><12>'BYTE MEMORY MAP:' 



CZQMCGO 0-12AK M£MO«V EXERCISER. 
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SEQ 01 H 





\JC 


0P010S 


042515 


047515 










0S4SP2 




050101 








V/C JHf V 


00007? 

VAAA/f C 










CXW3 




OO'iOIS 


040S70 


044522 


MTMAP- 


ASCI7 






0S4524 


046440 


046505 










0S1 117 


0201 ?1 


040515 












000 








TV 1 \J 




015 


043012 


047522 

ff ^Cb 


FROM- 


ASCI 7 






0?01 1 5 


000 








<301 1 




040 


047524 


000040 


TO: 


.ASCIZ 


901? 


0P5554 


005015 


047111 

rill 


052523 

V^b t — ' 


INSUFF : 


!asciz 




025542 


043106 


041511 


042511 








025550 


052116 


046440 


046505 








025556 


0511 17 


027131 

VC ' 1^1 


027056 








02556A 


044506 


051522 

1 ^b b 


020124 








025572 


033061 


0201 1 3 

WbV i 1 J 


047516 








025600 


020124 


046101 


020114 








025606 


044124 


051105 


020505 

Vb 








0256K 


000 










901 ? 


025615 


015 


047012 

' V I b 


0201 1 7 


MTR: 


.ASCIZ 




025622 


040520 


044522 

^b b 


054524 

^b~ 








025630 


051040 


043505 


051511 








025636 


042524 


051522 


043040 








025644 


052517 


0421 16 


000 






90U 


025651 


015 


051012 


051505 


PyRMSG: 


.ASCIZ 




025656 


040524 


052122 


047111 








025664 


020107 


043101 


042524 








025672 


020122 


020101 


047520 








025700 


042527 


020122 


040506 








025706 


046111 


051125 


006505 








025714 


000012 

WW 1 b 










9015 


025716 


005015 


047516 


050040 


NOPES: 


.ASCIZ 




025724 


051101 


052111 


020131 








025732 


051105 


047522 


051522 








025740 


043040 


052517 


042116 








025746 


047440 


020116 


042515 








025754 


047515 


054522 


051440 








025762 


040503 


006516 


000012 






9016 


025770 


005015 


051120 


043517 


PROREL : 


.ASCII 




025776 


040522 


0201 1 5 


047516 








026004 


020127 


042522 


044523 








02601 2 


042504 


020123 


040502 








026020 

wb Wb V 


045503 


040440 


020124 








026026 


020060 

Vb WW 


047524 


034040 








026034 


113 










9017 


026035 


015 


044012 


052111 




.ASCIZ 




026042 


041440 


047117 


044524 








026050 


052516 


020105 


047506 








026056 


020122 


047516 


046522 








026064 


046101 


051040 


047125 








026072 


044516 


043516 


005015 








026100 


000 










9018 


026101 


015 


051012 


043505 


HX1; 


.ASCJZ 




026106 


051511 


042524 


020122 








026114 


052101 


000040 








9019 


026120 


041440 


047117 


051124 


MX2: 


.ASCJZ 



ASCIZ <15><12>'PARITY MEMORY MAP:' 



ASCIZ <15><12>'FR0M ' 



ASCIZ <15><12>'N0 PARITY REGISTERS FOUND' 



ASCIZ <15><12>'RESTARTIN6 AFTER A POWER FAILURE •<15><12> 



.ASCIZ <15><12>'NQ PARITY ERRORS FOUND ON MEMORY SCAN'<15><12> 



.ASCII <1 5X1 2>' PROGRAM NOW RESIDES BACK AT 0 TO 8K' 



.ASCIZ <15><12>'HIT CONTINUE FOR NORMAL RUNNING' <1 5x1 2> 



ASCJZ <15x12>'REG]STER AT ' 
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SEQ 0115 



9020 
9021 
9022 
9025 



9024 
9025 

9026 
9027 
9028 

9029 
9030 

9031 



026126 

026133 

026U0 

026K6 

02^152 

026160 

026166 

026170 

026176 

026204 

026206 

0262U 

026222 

026230 

026236 

026244 

026252 

026260 

026266 

026274 

026276 

026304 

026312 

026320 

026321 

026326 

026334 

026342 

026350 

026356 

026363 

026370 

026376 

026404 

026406 

026414 

026422 

026430 

026431 

026436 

026444 

026452 

026460 

026466 

026474 

026502 

026510 

02651 1 

026516 

026524 

026532 

026540 

026546 

026552 

026560 

026566 



046117 
015 
020105 
054524 
005015 
040520 
000040 
005015 
045455 
000040 
051515 
046440 
020131 
047105 
047524 
046120 
020131 
051040 
046532 
000056 
005015 
046505 
047506 
000 
015 
050116 
046114 
046501 
020123 
052103 
015 
052123 
042522 
000040 
005015 
040440 
051523 
000 
015 
051104 
047111 
050101 
040502 
005015 
052103 
052123 
000 
015 
050130 
020104 
054522 
052111 
047522 
005015 
040522 
047514 



020123 
041412 
040520 
000040 
047515 
044522 

051515 
041440 

030461 
046505 
051120 
020524 
041440 
052105 
042524 
047125 
046115 

047516 
051117 
047125 

005012 
052125 
050040 
052105 
047111 
046101 
043012 
040440 
051523 

040514 
042104 
020072 

037412 
051505 
052440 
042520 
045516 
042523 
041440 
047101 

052412 
041505 
042515 
050040 
020131 
000122 
051 120 
020115 
040503 



000 
051117 
044522 

020123 
054524 

030461 
051123 

045455 
051117 
051505 
020041 
046517 
046105 
052123 
042040 
027056 

046440 
020131 
027104 

044412 
040440 
051101 
051105 
047440 
056 
051111 
042104 
020072 

052123 
042522 
020040 

042101 
020123 
046516 
020104 
000077 
042514 
047117 
035124 

042516 
042524 
047515 
051101 
051105 

043517 
042522 
042524 



MX3- 
MX4: 
MX5: 
MX6: 



.ASCIZ <15><12>'C0RE PARITY ' 



.ASCIZ <15><12>'M0S PARITY ' 



.ASCIZ <15><12>'MS11-K CSR ' 



.ASCIZ 'MSll-K MEMORY PRESENT.' TO COMPLETELY TEST RUN DZMML. 



NOMEM: 



.ASCIZ <1 5X1 2>' NO MEMORY FOUND.' 



FADMES: .ASCII <15><12><12><12>' INPUT ALL PARAMETERS IN OCTAL.' 



.ASCIZ <15><12>'FIRST ADDRESS: 



LADMES: .ASCIZ <15><12>'LAST ADDRESS; 



BADADR: .ASCIZ <15><12>'?ADDRESS IN UfWPPED BANK?' 



CONST: .ASCJZ <15><12>'SELECT CONSTANT:' 



UNEXPT: .ASCIZ <15><12>'UNEXPECTED MEMORY PARITY ERROR' 



PRELOC: .ASCIZ <1 5x1 2>' PROGRAM RELOCATED TO ' 
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SEO 0116 



9032 



9033 



905A 



9035 



9036 



9037 
9038 
9039 
9040 
9041 
9042 
9043 



9044 



9045 



9046 



9047 



026574 
026602 
026610 
026616 
026624 
026632 
026640 
026646 
026654 
026662 
026670 
026676 
026704 
026710 
026716 
026724 
026732 
026740 
026746 
026747 
026754 
026762 
026770 
026773 
027000 
027006 
027014 
027015 



027020 
027026 
027034 
027042 
027050 
027054 
027062 
027070 
027076 
027104 
027110 
027116 
027124 
027132 
027140 
027146 
027154 
027162 
027170 
027176 
027204 
027212 
027220 



020104 
005015 
052040 
047117 
044522 
051122 
052517 
005015 
044516 
046505 
047506 
020104 
054524 
005015 
054524 
051117 
020114 
046103 
000 
015 
042515 
052040 
027104 
015 
050120 
042524 
000 
377 



040520 
051040 
042524 
040524 
051117 
042101 
020123 
042440 
052050 
024465 
047503 
052116 
020101 
024122 
030455 
047522 
043516 
042440 
052050 
030455 
047515 
051106 
042524 



047524 
047515 
040510 
020105 
054524 
051117 
042116 
041523 
043516 
051117 
020122 
040520 
000056 
040520 
042440 
053440 
047516 
040505 

047012 
047515 
051505 
000 
051412 
047111 

052123 
000377 



044522 
043505 
020122 
042440 
000056 
051104 
042524 
051122 
052123 
000056 
051516 
042040 
051105 
051524 
024460 
040524 
041040 
051122 
052123 
024462 
020123 
051505 
052123 



000040 
042522 
020116 
040520 
042440 
043040 
000056 
047101 
046440 
020131 
040502 
044522 

044522 
051122 
046111 
020124 
027122 

020117 
054522 
042524 

044513 
020107 
021440 



054524 
051511 
040504 
051122 

051505 
052123 
051117 
026461 

040524 
052101 
047522 
033124 
000056 
044524 
052111 
051117 
030461 
000056 
042522 
020110 
042440 



MTOE: .ASCIZ <15><12>'H0RE THAN ONE PARITY ERROR FOUND.* 



SCAW1: .ASCIZ <1 5x1 2>' SCANNING MEMORY FOR BAD PARITY. ' 



PEWNC: .ASCIZ <1 5x1 2>' PARITY ERROR WILL NOT CLEAR.' 



NOMTST: .ASCIZ <15xl2>*NO MEMORY TESTED. ' 



SKPMES: .ASCIZ <1 5x1 2>' SKIPPING TEST tt' 



FILL2: .ASCIZ <Z77><377> 

.SBTTL ERROR REPORTING MESSAGES AND TABLES. 

■ • *************************************************************** 

y* MESSAGE BLOCK FOR ERROR TABLE TYPEOUTS 

***************************************************************** 

6«1; .ASCIZ 'PARITY REGISTER DATA ERROR.' 



0M2: .ASCIZ 'ADDRESS TEST ERR0R(TSTl-5) . ' 



DM4: .ASCIZ 'CONSTANT DATA ERROR ( TS T6-1 0) . ' 



0M5: .ASCIZ 'ROTATING BIT ERR0R(TST1 1-12) . ' 



DM6: .ASCIZ 'MOS REFRESH TEST ERROR (TST 30-31).' 
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SEO 0117 



9048 



9049 



9050 



9051 



9052 



9053 



9054 



027226 

027234 

027242 

027250 

027256 

027264 

027272 

027300 

027306 

027311 

027316 

027324 

027332 

027340 

027346 

027354 

027355 

027362 

027370 

027376 

027404 

027412 

027420 

027421 

027426 

027434 

027442 

027450 

027456 

027464 

027472 

027475 

027502 

027510 

027516 

027524 

027532 

027540 

027546 

027554 

027562 

027565 

027572 

027600 

027606 

027614 

027622 

027630 

027636 

027644 

027652 

027660 

027664 

027672 

027700 

027706 



051122 
051524 
031455 
020063 
020071 
051105 
047522 
030524 
027051 

115 
047111 
020123 
023460 
047522 
020124 

000 

120 
020131 
054522 
042522 
051122 
052123 

000 

104 
053440 
051127 
040520 
042040 
020124 
052050 
027051 

127 
050040 
020131 
042520 
052125 
042522 
051105 
051527 
051117 
027107 

120 
020131 
052123 
052117 
042520 
041440 
046117 
052040 
042101 
024123 
024467 
047515 
040510 
020105 
052123 



051117 
020124 
024461 
047530 
040520 
020116 
024122 
026463 
000 
051101 
020107 
047101 
020123 
024122 
033462 

051101 
042515 
040440 
051523 
051117 
033461 

052101 
052111 
047117 
044522 
042111 
051124 
052123 

000 
047522 
051101 
051124 
026104 
047040 
044507 
051440 
042440 
043040 

000 
051101 
042522 
051105 
046440 
020104 
047117 
044514 
044510 
051104 
051524 
000056 
042522 
020116 
042522 
051105 



024040 
030063 
000056 
020122 
052124 
051105 
051524 
033061 

044103 
023461 
020104 
051105 
051524 
027051 

052111 
047515 
042104 
042440 
052050 
027051 

0501 1 1 
020110 
020107 
054524 
023516 
050101 
033461 

043516 
052111 
050101 
041040 
020117 
052123 
047510 
051122 
0405U 

052111 
044507 
047040 
050101 
051501 
051124 
043516 
020123 
051505 
030524 

052040 
047117 
044507 
044440 



DM7: 



DM10: 



.ASCIZ '3 XOR 9 PATTERN ERR0R(TST13-16) . * 



.ASCIZ 'MARCHING VS AND O'S ERROR(TST 27)." 



DM11: 



.ASCIZ 'PARITY MEMORY ADDRESS ERR0R(TST17) . ' 



DM12: 



.ASCIZ 'DATIP WITH WRONG PARITY DIDN'T TRAP( TSTl 7) .* ' 



DM13: 



.ASCIZ 'WRONG PARITY TRAPPED, BUT NO REGISTER SHOWS ERROR FLAG.' 



DM14: 



.ASCIZ 'PARITY REGISTER NOT MAPPED AS CONTROLLING THIS ADDRESS(TST17) . ' 



DM16: 



.ASCIZ 'MORE THAN ONE REGISTER INDICATED PARITY ERROR.' 



j 



CZG^CGO 0-1 24K MEMORr 
C70MCG.P11 12-mAR-80 

0277U 042116 

027722 042105 

027730 052111 

027736 047522 

9055 027743 1C4 
027750 044123 
027756 023516 
027764 042526 
^27772 043516 
030000 042510 
030006 044522 
030014 051122 
030022 040522 
030030 052050 
030036 027051 

9056 030041 122 
030046 020115 
030054 042440 
030062 052050 
030070 027051 

9057 030073 111 
030100 041525 
030106 042440 
030114 044524 
030122 051122 
030130 052123 
030136 024466 

9058 030142 051120 
030150 020115 
030156 041440 
030164 042105 
030172 020116 
030200 040503 
030206 000 

9059 030207 124 
030214 042105 
030222 020124 
030230 043505 
030236 020122 
030244 051105 
030252 044502 
030260 027124 

9060 030263 124 
030270 042105 
030276 030461 

9061 030303 106 
030310 020104 
030316 040522 

9062 030323 050 
030330 047117 
030336 046102 
030344 047123 
030352 052105 

9063 030357 015 
030364 050120 
030372 020117 



EXERCISER. 16K vEfi 
13:07 ERROR 

041511 052101 

050040 051101 

020131 051105 
027122 000 

052101 020101 0M17: 

052517 042114 

020124 040510 

041440 040510 

042105 053440 

020116 040520 

054524 042440 

051117 052040 

050120 042105 

052123 033461 
000 

047101 047504 DM20: 

040504 040524 

051122 051117 

052123 030062 
000 

051516 051124 0M21: 

044524 047117 

042530 052503 

047117 042440 

051117 052050 

030462 031055 
000056 

043517 040522 [)«23: 

047503 042504 

040510 043516 

053440 042510 

042522 047514 

042524 027104 

040522 050120 0M24: 

020054 052502 

047516 051040 

051511 042524 

040510 020104 

047522 020122 

020124 042523 
000 

040522 050120 DM25: 

052040 0201 1 7 
027064 000 

044501 042514 DM26: 

047524 052040 
027120 000 

041501 044524 DM27: 

042440 040516 

020105 040527 

052047 051440 
027051 000 

052012 040522 DM31: 

042105 052040 
020064 000 
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.ASCIZ "DATA SHOULDN'T HAVE CHANGED WHEN PARITY ERROR TRAPPED(TST17). 



.ASCIZ 'RANDOM DATA ERROR ( TST20) . ' 

.ASCIZ 'INSTRUCTION EXECUTION ERROR ( TST21 -26) . ' 

.ASCIZ 'PROGRAM CODE CHANGED WHEN RELOCATED.' 

.ASCIZ 'TRAPPED. BUT NO REGISTER HAD ERROR BIT SET.' 

.ASCIZ 'TRAPPED TO 114.' 

.ASCIZ 'FAILED TO TRAP.' 

.ASCIZ "(ACTION ENABLE WASN'T SET)." 

.ASCIZ <1 5x1 2>* TRAPPED TO 4 ' 
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Seo 0119 



9064 
9065 
9066 
9067 
9068 
9069 



9070 

9071 
9072 
9073 

907A 

9075 

9076 
9077 

9078 
9079 



9080 
9081 
9082 
9085 
9084 

9085 



030577 
050404 
050412 
050416 
050424 
050452 
050440 
050445 
050450 
050456 
050464 
050472 
050500 
050505 
030512 
030520 
050526 
050534 
030540 
050546 
050554 
050562 
030570 
030571 
030576 
050604 
030612 
030620 
030626 
030651 
030636 
030644 
030652 
030660 
030666 
030674 
030702 
030705 
050710 
030716 
030724 
030725 
030752 
030740 



050744 
030747 
030750 



120 
004507 
040527 
027526 
050057 
051411 
051501 

126 
027520 
004501 
027526 
050057 
004507 

126 
027520 
052501 
004507 
040527 
027526 
050057 
004524 
041057 

000 

126 
027520 
041522 
051504 
051411 
051501 

126 
C27520 
050122 
027526 
050057 
027520 
043505 

000 

126 
027520 
043505 

000 

122 
051501 
040527 



000 
000 
000 



004505 
027525 
000125 
041520 
004505 
041057 
000 
050057 
041520 
027525 
041520 
004505 
040515 
050057 
041520 
004524 
027523 
000123 
041520 
004503 
040515 
053411 

050057 
041520 
046440 
020124 
041057 
000 
050057 
041520 
050057 
041520 
004503 
041520 
053411 

050057 
041520 
053411 

043505 
046411 
000125 



577 
377 



042522 
004502 

050011 
040515 
053411 

004503 
046411 
000102 
05001 1 
042522 
000 
004503 
046411 
042522 
004502 

05001 1 
052511 
051411 
051501 

004503 
051411 
004501 
040515 
053411 

004503 
052011 
000103 
050011 
051124 
051011 
051501 

004503 
051011 
051501 

053411 
004501 



000 
377 



DATA COLLMN HEADINGS 



DHl 



DH2: 



DH24: 



DH26: 



DH30: 



.ASCIZ 'PC REG S/8 WAS' 



.ASCIZ 'V/PC P/PC MA 



DH12: .ASCIZ 'V/PC P/PC MA 



DH14: .ASCIZ 'V/PC P/PC REG 



S/8 WAS' 



S/8' 



MA' 



DH15: .ASCIZ 'V/PC P/PC MAUT REG S/8 WAS' 



DH21: .ASCIZ 'V/PC P/PC lUT 



MA 



S/B WAS' 



DH23: .ASCIZ 'V/PC P/PC SRC MA DST MA S/8 



WAS' 



.ASCIZ 'V/PC P/PC TRP/PC 



DH25: .ASCIZ 'V/PC P/PC TRP/PC REG 



WAS' 



.ASCIZ 'V/PC P/PC 



.ASCIZ 'REG 



WAS 



REG 



MA 



WAS' 



WAS' 



DATA FORMAT TABLE FOR ERROR PRINTOUT. 
••••»•••••*•••••••••*••••••••••••••••••••••••»•••••*»•••••••••»• 

DM: .8VTE 0,-1.0.0 



DF2: 



.BYTE 0,-1.-1.0.0 



CZQMCGO MEMOftY ExEftCISER. ^6K VER 



rZQMCG.Pn 1?-fWP-80 13:07 



^cm 50A(1052) 



D 10 

12-MAR-80 





050755 


000 


000 








9066 


050755 


000 


377 


577 


Df 3- 


.8YTE 




030760 


576 


376 


9087 


050762 


000 


377 


577 


OFU 


.evTE 


9088 


030765 


577 


000 


000 


030770 


000 


377 


000 


0F21 


.8YTE 


9089 


050775 


577 


000 


000 


050776 


577 


000 


377 


DF30 


•BYTE 




031001 


376 








9090 












• EVEN 


9091 












9092 




032110 






32110 


9093 














9094 




000001 








.END 



ERROR REPORTING MESSAGES AND TAfiLES 

0.-1.-1.-2.-2 
0.-1.-1.-1.0.0 
0. -1.0. -1.0.0 
-1.0.-1.-2 



13:10 PAGE 59-103 



SEO 0120 



.-THE LOADERS ARE SAVE HERE TO END OF 8K 
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SfO 0121 



ABASE = 


000000 


6405 




ACOWl = 


000000 


64o!> 




ACDW^ = 


OCKXXXj 


6485 




ACPUOP= 


CKXXXX; 


^/ oc 




A r\r\j ^\ — 

AODWO = 


000000 


6403 




ADDWi = 


000000 


64oD 




ADDWlO= 


000000 


^/ oc 




AODWi I = 


000000 


X/ oc 




Ar\r\i il ^ — 


000000 


X/ oc 




ADDW I 5= 


000000 


xy oc 




ADDW = 


000000 


QC 




A r\r\i ii C ~ 


000000 


iL/ oc 




*rvr\i i"^ _ 

ADDW^ = 


000000 


<./ BC 




ADDW 3 = 


000000 


X/ oc 




* r\r\i_i/ — 

ADDWs - 


uuuoou 


<:.Z.flC 




ADDW J - 


UOOUOO 


A/ BC 




ADOWd - 


000000 


0*«03 




ADDW^ = 


000000 


iL./ BC 






000000 








UUUUUO 


A./.ac 




ADc VL 1 - 


UOUOOO 


O*»05 




ADc vn - 


UOUOOvJ 


A./ BC 




AC — 

At 


OOUUU 1 


0 ■ TH* 


f 500 


At n(V - 




0*»03 




ACftJ\M — 

ArNvn - 


UVAAAAJ 


AZ.BQ 




A r A T Al — 


/WWV1 






AMAf\D 1 — 

AHADH 1 - 


UvAAAaJ 


0*»o5 




AMAr\O0— 

AnAUH^- 




A./.B^ 




AHAUK^- 








AnAL/K*#~ 




0*»03 




AMA«S1 = 


000000 






AMAMS2= 


000000 


0*«o J 




A«A«S3= 


000000 






A«A«S4= 


000000 






AMSGAD= 


000000 


A/.B^ 
O*»0j 




AMSGLG= 000000 


0*»0j 




A«SGTV= 


000000 


0*»03 




AMTVP1= 


000000 


0*»03 




A«TyP2= 


000000 


0*»03 




AMTYP3= 


000000 


O*«o3 




A«TyP4= 


000000 






APASS = 


000000 






APRIOR= 


000000 






APTCSU= 


OOOOAO 


H077 


OV jC» 


APTENV= 


000001 


0071 


0t5' 


APTSIZ= 


000200 


OOC'* 


OQ7fl« 
OtjO* 


APTSPO= 


000100 


Ot 


Ot jOw 


ASUREG= 


000000 


Oh 05 




ATESTN= 


000000 


OH05 




AUNIT = 


000000 


O*»05 




AUSUR = 


000000 






AVBCn = 


000000 


6485 




AVECT2= 


000000 


6485 




BAOAOR 


026431 


7108 


9028# 


BANKNO 


016U0 


7214 


7221 


BITPT 


001 544 


64854r 


6837. 



7640 8653 



8938* 



7229 
6838' 



7237 
6874 



8329* 

6875 6876 6877 



6885* 6886* 6895 6897 6900 6903« 
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SEO 01 ?2 



BITO = 

BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BIT06 = 
B1T07 ^ 
BIT08 - 
BIT09 - 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 
BIT13 = 
BITU = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BITS = 
BIT6 = 
BI T7 = 
BITS = 
B1T9 = 
BLKMSK 
BPTVEC= 
BYTMES 
CASFLG 
CASREG 
CHGG1 
CHGG2 
CKPMER 
ClRPAR 
CONST 
CR 

CRLF : 

CTRLS 

OOISP : 

0F1 

OFU 

OF 2 

0F21 

OF 5 

DF30 

DHl 

DH12 

OHU 

0H15 



000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

001606 

000014 

025447 

001616 

001620 

002340 

017646 

017646 

020300 

026466 

000015 

000200 

005102 

177570 

030744 

030762 

050750 

030770 

030755 

030776 

030377 

030443 

030464 

030505 



7548 

8104 

8169 

8248 

8297 

6186* 

8671 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6186* 

6485* 

6186* 

6745 

6485* 

6485* 

6486* 

8662* 

7279 

6836 

7117 

6186* 

6186* 

6959 

6186* 

6491 

6548 

6497 

6574 

6502 

6609 

6489 

6535 

6545 

6551 



7550 

8123 

8190* 

8250 

8331 

6233 

8691 



8919 
8919 

8921 
8919 

8105 
6215 
7613 



8162 

8082 

9008* 
6656* 
71 38* 



7556 

6911 

9029* 

8937 

6627 

6969* 

6485 

9084* 

6553 

6507 

9088* 

6532 

6614 

9069* 

6540 

6556 

9073* 



7598 

8126* 

8191« 

8255 
8332 
6249 
8800 



8921 



7^>00 
8129 
8193 
8256 


8079* 
8130 
8195 
8271 


8080* 
8144 
8197 
8273 


8087 
8145 
8199 
8281* 


8089 
8146 
8203 
8282* 


8092* 
8148 
8204 
8284 


8093* 
8157- 
8234* 
8286 


8096 
8158* 
8236 
8291* 


8098 
8162* 
8238 
8293 


8105 
8167 
8241 
8295 


6750 


6914 


7043 


7049 


7125 


7144 


7589 


7613 


7624 


8079 



8919 



8132 
8919 
8157 


8205 


8242 


8921 


8474 








8153 


8185 


8919* 




6659* 


71 36 






8262 
8695 


8663* 
8752* 






8937 








6624 








6558 
6512 


6584 
6517 


6589 
6522 


6594 
6527 


6537 
9089* 


6542 


6564 


9086* 


9071* 
9072* 









9087* 
6569 



6599 



<^604 9085* 
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DH2 


030416 


6494 


6500 


6505 


^f4A 

6510 6515 


DH21 


0305AO 


6572 


7/ M 






DH23 


030571 


6582 


r\/> 7c M 






DH2A 


030631 


^ CO 7 

658" 


90/^6* 






DH25 


030652 


6592 


9077* 






Dh26 


030703 


6597 


6602 


AA 70 M 

9078* 




Dh50 


030725 


6607 


7nM 






DIDBH 


013002 










DIDBL 


012710 


77/ / M 
f fHHm 








DIDO 


012620 


f7Q7m 








DIPOO 


013100 


70 1 M 

7821* 








DJSPLA 


001K2 


6485# 


z z "^y ^ 

6624* 


Z Z TZ -•- 

6626* 


8507* 3560* 


DISPRE 


000174 


6204# 


6624 






DM1 


027020 


6488 


6550 


AA /7m 

9043* 




DM10 


027311 


6524 








DM11 


027355 


652V 


9050* 






DM12 


027421 


ACT/ 

6534 


9051* 






0M13 


027475 


6559 


ftAC Tm 






DMK 


027565 


AC/ / 

634^ 


905 3# 






DM16 


027664 


^ccc 


9054* 






0M17 


027743 


o?6U 


905 D* 






DM2 


027054 


A./ OT 

6493 


^/ QO 

6499 


AA/ / M 

904A* 




DM20 


030041 


A CAA 

6b66 


W56* 






DM21 


030073 


6j' 1 


90d7* 






0M23 


030142 


ACQ-J 
O30 1 


9058* 






UM2A 


030207 


JiCOdi 
OJOO 


o/\cqm 






DM25 


030263 


6jV1 


9U60* 






0M26 


030303 


65Vo 


9061* 






DM27 


030323 


ooU 1 


Wo<:* 






DM31 


030357 


OO 1 1 


90o3* 






Dm 


027110 


03U*» 


904 D* 






0M5 


027146 


6jUV 


9046* 






DM6 


027204 


03l4 


9047* 






DM7 


027250 


OJlV 


OA/ Dm 

9048* 






DONE 


014006 


o021* 








OPOBH 


013264 










DPOBL 


013172 


7QCOM 








DSUR = 


177570 


oloo# 


^/ OC 

6485 


o/ 




DTI 


001646 


o4oj* 


6490 






DT12 


001674 


o4o5* 


6536 


Z C/ 1 

6541 




DTK 


001706 


o40D* 


^C/ A 

65so 


6557 




DT15 


001720 


64oa* 


655<: 






DT2 


001660 


A/ OCm 

6485* 


A./ AZ. 

6496 


6501 


Z C AZ ^ C 4 4 

6506 6511 


DT21 


001736 


o4o3» 


6573 




DT23 


001754 


6485* 


Z C DT 

6583 






DT2A 


001772 


A/ QQm 


6588 






DT25 


002002 


64o># 


6593 






DT26 


002016 


41./ OC« 


AC no 
6598 


6603 




0T30 


002030 


A/ OCm 


AAr\o 
6608 






0T31 


002042 


o4o?» 


661 3 






E«TVEC= 


000030 


o IOC 








ENDINS 


021634 


OQI Oil 








ERRTRP 


025124 




O' c < 


oo 1 D 




ERRVEC= 


000004 


6186« 


6211 


6624* 


6648* 6657* 






8594* 


8598* 


8919* 




f AOMAP 


001570 


6485* 


7084* 


7085* 


8146 8148 
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6530 6562 6567 9070* 



SfO 0125 



8921* 



6516 



6521 



6526 6531 6563 6568 



6681- 
8271 



6721* 
8273 



6741* 6748* 6799* 
8295 8297 8919* 



6816* 8501* 85S4* 



CZQHCGO 0-1 2AK MEMORr 
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FAOMES 
FADMSK 
f ILL2 
FLAG8K 
FROM 
FSTADR 
GMPR 
GMF>RA 
GMPRB 
GMPRC 
GMPRD 
GNS 
HT 

IMPCHE 
IMPCK 
INI TON 
IN1T6X 

wnm 



026521 
001566 
027015 
001557 
025517 
001 562 
004102 
004130 
004K4 
0041S2 
004212 
= \j 

= 000011 
1 77746 
003302 
015074 
015206 
014436 



INSERT 

INSUFF 

10TVEC= 

KIPAR0= 

K1PAR1= 

KIPAR2= 



021134 
025534 
000020 
172340 
172342 
172344 



KIPAR3= 172346 



KIPAR4= 
KIPAR5= 
tClPAR6= 
(CIPAR7= 
•CIPORO= 
KIP0R1= 
KIP0R2= 
ICIP0R3= 
KIP0R4= 
KIP0R5= 
KIP0R6= 
KIP0R7= 
LAOWP 

LAOMES 
LADMSK 
LDDISP 
LF 

LMAD 

LSTADR 

NAW 

1 

I1ANUAL 
(lANULl 
fiANUL2 
IWMEM 



172350 
172352 
172354 
172356 
172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 
001602 

026406 
001600 
001522 
000012 
001520 
001574 
01 7546 
017632 
017644 
005376 
005434 
006036 
003334 
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7047 

6485# 

8996 

6485# 

6756 

6485# 

6729 

6800* 

6799 

6804 

6797 

6204 

6186* 

6201* 

6647 

7168 

8149 

7159 

7358 

7784 

8919* 

6730 

6186* 

6189* 

6189* 

6189* 

8207 

A189* 

8528* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6189* 

6485* 

8181 

7068 

6485* 

6485* 

6186* 

6485* 

6485* 

7141 

8653* 

8639 

6821 

7035 

7037 

6657 



9025* 

8299 

9037* 

8138* 

8820 

7030 

6795* 

6814 

6806* 

6808* 

6820* 

6627 

8937 

6658* 

6648 

7185 

8151 

7177 

7367 

7824 

9012* 

6240 

6265* 

6692 

8280* 

6774 

8068* 

8069* 

8070* 

8071* 

6235 

8057* 

8058* 

8059* 

8060* 

8061* 

8062* 

8063* 

7110* 

8183 

9027* 

8100 

6625* 

8937 

8572 

7036* 

7658 

8655 

8641 

6960 

7043* 

7120* 

6671* 



89^9* 

8228* 
9010* 
7116* 



6259* 

8065* 

6712* 

8313 

6777 



8056* 



7111* 
8197 



8583* 
7076* 
8638* 

8647 
7020 



3231* 
8646 



8249' 
8919 



6655* 






8153* 














7195 


7228 


7236 














8170 


817?* 














7313 




7204 


7213 


7220 


7250 


7259 


7282 


7291 


7302 


7321 


7383 


7404 


7413 


7430 


7469 


7478 


7495 


7546 


7663 


7710 


7861 


7898 


7933 


7970 


7986 


7997 


8003 


8014 


8079* 


8345 



7337 
7747 



8064* 
8469* 
6777* 
8451* 
6778* 



8468* 
8533* 
6884* 
8453* 
8067* 



8532* 8970 



6888 
8468 
8102* 



7612 

8527* 

8107* 



8066* 

8700 

8207* 



8085* 
8701* 
8208* 



8091* 
8734* 
8440* 



8102 

8739* 

8443* 



8159* 8189* 
8451 8469 



7128* 
8199 



8119 8141 



8590 
7080 



8657* 
7029* 



7129* 
8216 

8201 



8604* 
7091 



7109 



8096 
8218 



8098 
8238 



8115 
8248 



8117 
8250 



8130 
8919 



8139 8167 



8169 



8220 8240 8252 8919* 



7122* 7123* 7124* 7125* 7126 8171 8919 
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SEO 01 ?5 



MAPR8 

MEMfiE S 
MHAVA 



MMCDRE 



liPAMEM 
MPEND 
MPPATS 
MPRX 

MPRO 

MPR1 

MPR10 

MPR11 

(iPR12 

liPR13 

MPRU 

MPR15 

MPR2 

MPR3 

(1PRA 

MPR5 

(iPR6 

(«FR7 

MPR8 

MPR9 

MTMAP 

MTOe 

MTR 

MXI 

WX2 

MX 3 

MX4 

MX 5 

11X6 

NOMEM 

NOFITST 

OEfLG 

PARVEQ- 

PBTRP 

PESRV 

PEUNC 

PHYADR 

PIRO - 



004260 
QU777 
001524 

025431 
025364 
000606 



015704 
014310 
001554 
015214 



000250 
004220 
002074 
002050 
002276 

002076 
002106 
002216 
002226 
002236 
002246 
002256 
002266 
002116 
002126 
002136 
002146 
002156 
002166 
002176 
002206 
025472 
026602 
025615 
026101 
026120 
026133 
026152 
026170 
026206 
026276 
026747 
025716 
001560 
000114 
012062 
01 7440 
026710 
016064 
1 77772 



6841 
6198* 
6228 
8447 

6680 

6652 

6231 

7142 

8959 

7173 

6650 

6485* 

7164 

7360 

7792 

6189# 

6818 

6485* 

6485# 

6485# 

8638 

6485# 

648S# 

6485* 

6485* 

648S4r 

6485* 

6485# 

6485* 

6485« 

6485* 

6485* 

6A85* 

6^85* 

6485# 

6485# 

6485* 

6912 

8627 

6819 

6927 

6929 

6918 

6922 

6926 

6957 

8797 

8919 

8745 

6485* 

6195* 

6485 

6485 

8722 

7160 

6186* 



6851* 

6683 

6485* 

8449 

9007* 

9006* 

6288* 

7609 


6708 
6672 
8457 


6770 
6673 
8459 


7082 
6895 
8479 


7126 
6897 
8484 


8143 
6900 
8703 


8254 
7063 
8705 


8727 
7065 


8919 
7098 


7100 


7103 


7105 


6645* 
8083 


6651* 
8155 


6689 
8186 


67^0 
8278 


6738* 
8310 


6744* 
8438 


6772 
8525 


6840 
8575 


6882 
8584 


7112 
8698 


7120 
8732 


7191 

6743 

8163* 

7181 

7377 

7831 


7200 

6843 

8164* 

7209 

7399 

7868 


7232 

7146 

81 72" 

7216 

7406 

7906 


7241 
8056* 

8257 
7224 
7423 
7971 


8165 

8300 
7252 
7464 
7990 


8271* 

7261 
7471 
8001 


7285 
7488 
8007 


7297 
7529 
8018 


7308 
7657 
8181* 


7315 
7679 
8547 


7331 
77)7 


7553 
7754 


6836* 
























6795 
8663 
6798 


6812 
6853 


6817 
6913 


6879 
6969 


6934 
7005 


6947 
7014 


6958 


6974 


7011 


7019 


7539 


8260 


6890 
6892 


6939 
6943 


6941 
6945 


6942 
6946 


6948 
6952 


6951* 
6955* 















9009* 
9032* 
9013* 
9018* 
9019* 
9020* 
9021* 
9022* 
9023* 
9024* 
9055* 
9015* 
7563* 
7577* 
7586* 
8613* 
9054* 
7169 



7650* 
7581* 



7178 



7586* 8505* 8556» 8649* 8650* 



7186 



7196 



7205 



8308* 



CZQMCGC 0- 
CZQMCG.PII 



1?-<»1AR-80 



PIRQVE= 
PflEMAP 
PRELOC 
PRGMAP 

PROREL 
P^O 

PR1 = 

PR2 = 

PR3 = 

PR4 = 

PR5 = 

PR6 = 

PR7 = 
PS 

PSCAN 

PSW = 

PURMSG 

PWRVEC= 

RAO TAB 

RANTST 

RELOC 

RELOCF 

RELTOP 

RELO 

RESCHK 

RESLDR 

RESRVD 

RE STAR 

RES TOR 

REST1 

REST? 

RESVEC= 

ROTATE 

RW 

SAVLDR 

SAVTST 

SCAf«1 

SELECT 

SELFLG 

SETAF 

SET CON 

S»CPf€S 

SPRNT 

SPRNTA 

SPRNTB 

SPRNTP 

SPRNTO 

SPRNTO 

SPRNTl 

SPRNT2 



0002AO 
0015^0 
026552 
000602 

025770 
000000 
000040 
000100 
OOOUO 
000200 
000240 
000300 
000340 

1 niit 

017754 
1 7771 t 

02565' 
000024 
001622 
012500 
016346 
000600 

016470 
017072 
005262 
017300 
001516 
000300 
000304 
000306 
000324 
000010 
016220 
000006 
017360 
001534 
026646 
002656 
001556 
017612 
016200 
026773 
020322 
020410 
020414 
020346 
020334 
020352 
020360 
020376 
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SEO 0126 



6186# 

6485« 

8427 

6251 

8514« 

9016# 

6186# 

6186# 

6186^ 

6186# 

6186# 

6186# 

6186* 

6186* 

6186* 

8629 

6186* 

8923 

6290 

6186* 

6485* 

7661* 

8407* 

6267 

8922 

8037 

6274 

6975 

6280 

6485* 

6207 

6208 

6225 

6229 

6186* 

7293 

6191* 

6642 

6485* 

8690 

6205 

6485* 

7555 

7290 

8919 

6984 

8776 

8768 

7602 

8628 

6991 

7223 

7162 

7369 

7438 

748 3 



6851* 
9031* 
6252 
8522 



8675 

6627 

8924 

9014* 

6290* 

8508 

8465 

6286* 

8932 

8434* 

8040 

7005* 

8043 

6978« 

6224* 

6226* 

6227* 

6231* 

7304 

8056 

8046 

6724* 

9033* 

6623* 

6621* 

8643 

7301 

9036* 

6995 

8780 

8786* 

7618 

8673 

7172 

8778* 

7207 

7370 

7439 

7497 



6852* 6876* 6877« 



6272 
8563* 



8677 
6928 
8933 

6624* 
8546 

8493 

6634* 

8939 

8522* 

8572* 

6982 

6290 



8353* 
8057 
8590* 
6725* 



6623* 

8645 

7545 

7025 
8785* 

7628 
8676 
7190 

7260 
7371 
7442 
7500 



6287* 
8564* 



8529 
7140 



6985 
6631 



8058 
7050* 



7034 

8649* 

8345* 

7562 



6632* 
8919 



8689* 

7048 7069 



8502* 8555* 



8539 
8164 



8059 
7051* 



8766* 



6941* 
6633* 



6942* 
8024 



6945* 
8026 



6946'' 
8030 



7548 
8434 



7550 
8463 



8471 • 8489 



7''18 



8046 8825 8826 8919 8920 8921 8922 



8496* 8500* 8509 8516 8537 8562* 8642 8919 



6990 6993 7614* 76^5 



7616 7638 



8063 
7086* 



7087* 8024 8026 8919 



7641 


8774* 


















8716 


8770* 


















7240 


7582 


7596 


7646 


8772 


8775* 










7284 


7296 


7307 


7323 


7324 


7325 


7326 


7340 


7343 


7546 


7372 


7386 


7389 


7392 


7415 


7416 


7417 


7418 


7432 


7435 


7445 


7446 


7449 


7452 


7453 


7456 


7459 


7480 


7481 


7482 


7503 


7504 


7507 


7510 


7511 


7514 


7517 


7518 


7521 


7524 
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SEO 01?7 



SPRNT3 


020372 


7675 


7941 


7945 


7962 


7999 


8016 


8783* 


7715 


7752 


7790 


7829 


7866 


7904 


R7R?M 


SRO = 


1 77S72 


6189# 


6233 


6249* 


6649* 


6742* 


7144 


807?* 


SRI = 


1 77574 


6189# 












SR2 = 


177576 


6189# 














SR3 = 


172516 


61894r 














STACK = 


001100 


61864r 


6227 


6268 


6270 


6485 


6624 


6655 


START 


002650 


6204 


t62^M 








STARTA 


002664 


6230 


6282 


6622 


6624* 








START1 


006114 


6279 ■ 


7127 


7135* 


7139 


8038 


8046 




STKlJ1T= 




61864r 










SUR 


001140 


6290* 


6485* 


6624* 


6627 


6646 


6739 


6796 






8557 


8559* 


8640 


8644 


8665 


8919 


8921 


SWREG 


000176 


6204# 


6624 


6627 


8923 




SWO = 


000001 


61864^ 










SWOO = 


000001 


61864r 














SW01 = 


000002 


6186« 














SW02 = 


000004 


61864r 














SU03 = 


000010 


61864r 














SW04 = 


000020 


6^86M 














SW05 = 


000040 


6186M 


8919 












SW06 = 


000100 


61864r 


6796 


7541 










SW07 = 


000200 


6^S6M 


8028 












SW08 = 


000400 


6^86M 


7266 












SU09 = 


001000 














SW1 


000002 


61864r 














SUlO = 


002000 


61864r 














SW11 = 


004000 


6186# 














SU12 = 


010000 


61864r 


6646 


6739 










SW13 = 


020000 


61864r 












SWK = 


040000 


61864r 














SU15 = 


100000 


6186M 














SW2 = 


000004 


6186« 














SW3 = 


000010 


61864^ 














SWA = 


000020 


61864r 














SW5 = 


000040 


6186« 


6644 












SU6 = 


000100 


61864r 


8640 


8665 










SW7 


000200 


61864r 










SUB = 


000400 


61864^ 














SW9 = 


001000 


61864r 














TBITVE= 


000014 


6186« 














TEMP 


001614 


6485iV 


79>;» 


7968 










TIMOUT 


003632 


6209 


67Z7M 


6787 










TKVEC = 


000060 


6186« 












TMAP 


004572 


6887 


6911* 












TMPFAO 


001564 


6485ir 


8150 


8275 


8919* 








TMPLAO 


001576 


64854r 


8101* 


8120* 


8202* 


8221* 


8224 


8919* 


TMPPT 


001550 


64854^ 


8103* 


8104* 


8108* 


8109* 


8111 


8113 






8144* 


8145* 


8181 


8183 


8203* 


8204* 


8209* 






8244* 


8246 


8255* 


8256* 




TO 


025527 


6763 


6782 


8813 


901 U 








TPVEC = 


000064 


6186* 








TRAPVE= 


000034 


6186« 














TRTVEC= 


000014 


61864r 














TSTHAP 


001530 


6485# 


8087 


8089 


8111 


8113 


8123 


8136 






8284 


8286 


8293 


8919* 



8961 



6671 



6737 



7266 7268 
8923* 



7541 



8028 8504 8506* 



8115 
8210* 



8117 
8212 



8129* 
8214 



8134* 
8216 



8136 
8218 



8193 8195 8212 8214 8236 



8139 
8241* 



8246 



CZQMCGO 


MEMORY 


EXERCISER. 16K 


vFR 


CZQMCG.P11 12-^-80 






CROSS 1 


TST1 


006176 


71 ^7 


71iS 


7157# 


TST10 


007050 


75A7 


7P71 


72770 


TST11 


007132 


75B1 
f CO 1 


7?Rfl« 




TST12 


007216 


7?OQil 
f CrJm 






TST13 


007300 


771 fl* 






TSTH 


007624 


771 n 






Tsns 


010154 


77SS 

1 J J J 


7L(\^M 
1 H\J 1 ^ 




TST16 


010776 


7Ani 






TST17 


011620 


1 hOO 






TST2 


006322 


71 7S* 






TST20 


012472 


1 J** J 






TST21 


012606 








TST22 


012676 




f f *♦ jw 




TST23 


012770 


77LT 


77Rnir 




TST24 


013066 


77Rn 


7R?n* 




TST25 


013160 




7^*^711 

1 OJ f ^ 




TST26 


013252 


7RS7 


7894# 




TST27 


013346 


7RQA 
r OyH 


707?* 
f yjc^ 




TST3 


006416 


71Q7if 

f 1 






TST30 


013562 








TST31 


013674 




7157 




TST32 


014014 




8022* 


TST4 


006522 


7?1 1# 






TST5 


006612 








TST6 


006706 


f CHOW 


7?7'^ 




TST6A 


006714 


7^LQM 

f ^H7ff 


777L 




TST7 


006736 


7?'i7M 


777'^ 

f C 1 ^ 




TYPMAP 


020422 


67?? 


693? 


8793* 


UNEXPT 


02651 1 


OO 1 H 






UP 


000000 


^100# 

O 1 7 V 


Ov^O 


8057 


UUP 


001612 


OHO JW 




6860 


WUPSYT 


011662 


7'iCRM 

1 JHO't 






WUPBO 


011626 


7'i'^QM 






wupei 


01 1 722 


7'>'>7Zf 


f O JO 




UWP82 


011766 


7'ifi'i/t 






UWP83 


012336 




r O J\/ff 




UUPB4 


012426 




7597 

f -/7 r 


7647* 


UWP8S 


012452 


f J 


7560 


7654* 


W3X9 


016266 




7359 


7405 


SAPTHD 


001330 








SAPTR 


001512 


AAA Sir 






SASTAT 


001344 




R93R 




SASTEN 


001510 








SATYC 


024060 








SATYI 


024034 








$ATY3 


024042 








SATYA 


024052 


89? 1 


89 38a 

07 JOW 




$ATY6 


024350 


R938# 

07 






$ATY7 


024414 








SAUTOB 


001134 




OOC » " 


8923 


SeASE 


001260 








SBDAOR 


001122 


6485# 


8420* 


8613* 


SBDDAT 


001126 


6485# 


8418* 


8786* 


SBELL 


001174 


6485# 


8921 




SCDW1 


001264 


6485# 






$fDW2 


001266 


6485# 
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: TABLE — 
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USER SYMBOLS 
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SEO 0128 



8058 
6894* 



8059 
7567 



8063 
7574 



7470 8376* 
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SEQ 01 ?9 



SCHARC 

SCKSWR 

SCMTAG 

JCin3 = 

tCM4 = 

ICNTLG 

SCNTLU 

ICPUOP 

tCRLF 

SOBLK 

tODUO 

SDDU1 

tODWiO 

tODWil 

S0DU12 

S00W13 

SDDWK 

SDDW15 

S0DW2 

SDDW3 

SD0U4 

SDDU5 

SO0U6 

SDDW7 

$D0U8 

$D0W9 

SOEVCT 

SDEVM 

SDOAGN 

S0T8L 

SEM)AD 

$£«>CT 

SENOnC 

SENULL 

SENV 

SENVM 

feop 

KOPCT 
SERFLG 
SERKAX 
SERROR 



SERRPC 
JERRTB 
SERRTV 
SfRTTL 

sescAP 

$£TABL 
SCTEND 
IfATAL 
SFFLG 



024030 
022374 
001100 
000000 
000004 
023321 
023314 
001232 
001201 
024664 
001270 
001272 
001314 
001316 
001320 
001322 
001324 
001326 
001274 
001276 
001300 
001302 
001304 
001306 
001310 
001312 
001214 
001262 
014264 
024654 
014232 
014166 
014270 
014305 
001224 
001225 
014136 
014160 
001103 
001115 
021650 



001116 
002340 
022074 
001112 
001172 
001224 
001330 
001206 
024440 



8937#« 

8919 

6485* 

6485# 

6485* 

8923* 

8923* 

6485* 

6485* 

8939* 

6485* 

6A85* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

6485* 

8046* 

8939* 

6215 

6624 

8046* 

8046* 

6485* 

6485* 

8027 

6624* 

6485* 

6485* 

6984 

7307 

7389 

7449 

7507 

7628 

7999 

6485* 

6485* 

8921 

6485* 

6485* 

6485* 

6485* 

6485* 

8938** 



8920 
6624 



6723 



8921 



6627 
8046* 



6627 

6624 

8029 

8046* 

8919* 

8919* 

6991 

7323 

7392 

7452 

7510 

7641 

8016 

8921* 

8922* 
8714* 
8919* 



8938* 



8923* 



6937 8044 



8921 



8922 8923 8924 8937 



8046* 8921 



6635 
8937 
8046* 

8921* 

6995 
7324 
7415 
7453 
7511 
7646 
8421 
8922 



8921* 
8921 



8034 


8046 


8921 


8937 


8938 






8938 














7025 


7162 


7172 


7190 


7207 


7223 


7240 


7325 


7326 


7340 


7343 


7346 


7369 


7370 


7416 


7417 


7418 


7432 


7435 


7438 


7439 


7456 


7459 


7480 


7481 


7482 


7483 


7497 


7514 


7517 


7518 


7521 


7524 


7562 


7582 


7675 


7715 


7752 


7790 


7829 


7866 


7904 


8621 


8628 


8673 


8676 


8716 


8921* 


8947 



7260 
7371 
7442 
7500 
7596 
7941 



7284 
7372 
7445 
7503 
7602 
7945 



72% 
7386 
7446 
7504 
7618 
7962 
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SEQ 0150 



SFILLC 
SPILLS 
SGOAOR 
tGODAT 
$GE K2 
SGTSWR 
SHO 

SHIBTS 

IHIOCT 

SICNT 

tILLUP 

SINTAG 

tITEMB 

$LF 

SLFLG 

SLPADR 

SLPERR 

VV^DR1 

SnADR2 

yiA0R3 

SMADRA 

SnAIL 

SMAMSI 

<nAMS2 

<nAMS3 

SMAMSA 

SMBAOR 

JMFLG 

SMNEU 

IMSGAD 

SMsac 

SMSGTY 

SMSUR 

SMTYPI 

$«TYP2 

$«TYP3 

SMTYPA 

SMXCNT 

SNULL 

$NWTST= 

$OCNT 

SOMOOE 

SOVER 

tPASS 

SPASTM 

SPRINT 



SPWKAD 

SPWRON 

SPURMG 

SPWRUP 

SOL€S 

SRDCHR 



001156 

001155 

001120 

001 12A 

0^^222 

022AA6 

000000 

001330 

023520 

001104 

000756 

001135 

0011U 

001202 

02AA37 

001106 

001110 

001256 

001242 

001 2A6 

001252 

001204 

001234 

001240 

001244 

001250 

001332 

024436 

023337 

001220 

001222 

001204 

023326 

001235 

001241 

001245 

001251 

021636 

001154 

000001 

025120 
025122 
021122 
001212 
001336 
023522 



000752 
000610 
000746 
000662 
001200 
022700 



6485# 

6485# 

6485« 

6485# 

8046^ 

6627 

6182 

6485# 

7054 

6485# 

6290* 

6485# 

6485# 

6485# 

8938#* 

6485# 

6485# 

6485# 

6485# 

6485# 

6485# 

6485^ 

6485* 

6485# 

6485# 

6485# 

6485^ 

8938** 

8923# 

6485>«r 

6485# 

6485# 

8923# 

6485* 

6^85^ 

6485/> 

6485^ 

8919^ 

6485^ 

7157# 

7466* 

8940** 

8940** 

8919* 

6485* 

6485* 

6290 

6922 

8614 

8931* 

6290* 

6290* 

6290* 

6290* 

6485* 

8923* 



8937 
8937 
8419* 
8417* 

8923* 



7067 
8919* 

8923 

8921* 

8921 

7139* 
8919* 



6624 



8938* 
8938* 
8938* 



8937 



6624 
8921 



8766* 8775* 8778* 8779* 8783* 8784* 
8767* 8785* 



7072 7075* 7077 7088 



8922 

8923 8924 8937 

7140* 7273* 8919* 
8921 



6627 8919 8921 8937 



8924** 



7175* 


7193* 


7211* 


7226* 


7248* 


7257* 


7277» 


7288* 


7299* 


7310* 


7355* 


7401 


7538* 


7660* 


7706* 


7743* 


7780* 


7820* 


7857* 


7894* 


7932* 


7985* 


8002* 




6624* 


8046* 


8919 




















6627 


6652 


6680 


6723 


6730 


6745 


6756 


6763 


6782 


6819 


6912 


6918 


6926 


6927 


6929 


6936 


6956 


7047 


7068 


7108 


7117 


8044 


8046 


8427 


8627 


8690 


8722 


8745 


8797 


8813 


8820 


8919 


8921 


8922 


8923 


8924 


8937 


8939 


8940 


8990 


8996 

















8923 8924 



8937 
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EXERCISER. 16IC 


VER 


HACYII 




1 P-MAfi-RO 1 ^ 




czoncG. 


P11 12-«AR-80 


13:07 




CROSS REFERENCE 


TABLE — 


USER SY«OLS 




tROL IN 


023020 


8923* 


8924 














tROOCT 


0233S0 


7048 


7069 


71 1 B 


BQ7/.jr 
OVc*** 










IRDSZ = 


000010 


8923* 
















SSAVR6 


000762 


6290M* 












7?*; 7 

f C Jf 


7277 


SSCOPE 


0206^0 


7157 


7175 


71 Q7 


7?1 1 


7226 


7466 


7538 


r OOU 


77ftA 
f f UO 


77t,l 


77Rn 


7Rpn 


7857 






891 9# 












BQ97 

oV^j 




SSETUP= 


000130 


6203* 


6624 


oo2f 


oU4o 


8919 


BQ?1 




SSTUP = 


1 77777 


6203* 
















SSVLAO 


021066 


8919* 
















SSVPC = 


000010 


6215* 
















SSWR = 


167400 


6177* 


6182 


^1 fU. 


ocyyj 


6485 


OOcH 


71 '57 

f 1 J f 


7175 


7277 


7288 


r cry 


771 n 


7355 


7z.ni 


I hOO 


7538 






7857 


7894 


7075 


7asc 

r TO J 


8002 


BAA A 


B010 


8921 


ssyREG 


001226 


6485* 


6624 
















000340 


6178* 


6184 


BQ1 Q 

erf 1 ▼ 












STESTN 


001210 


6485* 


8919* 














STII«S 


001170 


6277* 


6485* 




BOA A* 


8919* 








STKfi 


001146 


6485* 


8923 














STKS 


001144 


6485* 


8923* 














tTMPO 


001160 


6485* 


8309* 


B71 Q* 


B7?1 • 


8770* 


B77A* 


B7B9* 
Of Oc" 




%lm>^ 


001162 


6485* 


8771* 














ST«P2 


001164 


6485* 


6687» 


oooO* 


AAQ1 * 

DOT 1 " 


6702* 


f UjO 


7074 

f Uf 




STWP3 


001166 


6485* 


6679» 




DO 


6701* 


Of vJ" 


7n7S 


8946* 


STN 


000032 


6179* 


6182 


71 K7m 


( 1 f J* 


7193* 


7?1 lif 

f C 1 1 ^ 




72^8M 




72990 


7310* 


77^^ir 
f jjj^ 


7LC\M» 


7466* 


f JjOtf 


f OOUw 


7706* 






7932* 


7985* 














»TPB 


001152 


6485* 


8937» 














STPFLG 


001157 


6485* 


8937 














STPS 


001150 


6485* 


8937 














STSTM 


001334 


6485* 
















STsrr#i 


001102 


6278* 


6485* 


f CI c " 




8919* 


RQ71 

O . c 1 






STTYIN 


023304 


8923* 
















STYPAD 


025162 


6757 


6765 


Of ©"t 


0*tcO 


8922 


0~JOw 






STYPOS 


024442 


8046 


8922 


aoxdm 












STYPE 


023550 


8933 


8937* 














STYPEC 


023764 


8923 


8937* 














STYPEX 


024032 


8937* 
















STYPOC 


C24720 


6928 


8922 




fl040ir 










STYPON 


024734 


8940* 
















STYPOS 


024674 


8825 


8826 


S01Q 


fl077 
Otcc 


8940* 








SONIT 


001216 


6485* 
















HJNITM 


001340 


6485* 
















SUSUR 


001230 


6485* 
















SVECT1 


001254 


6485* 
















$VECT2 


001256 


6485* 
















SVERPC 


001514 


6485* 


8922* 














SXTSTR 


020664 


8919* 
















lOf ILL 


025121 


8940*» 
















WOCAT= 


(J 


8919 


8921 














= 


032110 


6204* 


6211* 




API 7if 


6290 


0*»03w 


M74 


6629 






8937 


8938* 


8939* 


9092* 










.CONST 


001610 


6485* 


71 19* 


7249 


7258 










.EIGHT 


001642 


6485* 


8939 














.ERRTB 


001640 


6485* 


8922 














.«PPAT 


001634 


6485* 


7278 















SEO 015 



7288 
7894 



7193 
7660 



7299 
7932 



7211 
7706 



7310 
7985 



7226 
7743 



7355 
8002 



7248 
7780 



7401 
8021 



7257 
7820 



7257* 7262 "'277* 
7743* 7780* 7820* 



7281 
7857* 



7288* 
7894* 



8046 8919 



8921 



8923* 89?4 



CZOnCGO HEMORV 
C7QMCG.P11 1?-«Aft-80 



.PBTRP 
.PE SRV 
.RESRV 
.STACK 
.TST32 
.USTA= 
.*X = 
.3X9 



001630 
001626 
001632 
001636 
001 62A 
001622 
001644 
• ••••• \j 

001330 
007312 



EXERCISER. 

13:07 



16K 



6485# 

6485# 

6485« 

6485# 

6485* 

6485* 

6485# 

8938 

6483* 

7311* 
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PAGE 60-n 



7566 
7588 
7577 
7581 

7135 
8919 



7573 7594 
7586 8649 



7622 



8616 8652 8668 8709 



8753 
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CZQWCGO 


0-1 2AK 


MEMORv 


EXERCISER. 16IC 


vER 


MACVl 1 


7A A / 1 AC \ 

30A(1052) 


12-«AR-80 13: 


1 0 PAGE 


61 










C7QMCG. 


»11 12-MAR-80 






CROSS 


REFERENCE 


TABLE " 


MACRO 


NAMES 












SEO 


ABOPT 


6078* 


6258 




fl1?R 

O 1 CO 


8166 


8338 


8422 


8436 


8491 


8524 


8574 










CKSUR 


600&r 


8919 
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7207 


7223 


7240 


7260 


7284 


7296 


7307 


7323 


7324 


7325 


7326 
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7343 


7346 


7369 


7370 


7371 


7172 


7386 


7389 


7392 


7415 


7416 


7417 


7418 


7432 




7435 


7438 


7439 


744? 


7445 


7446 


7449 


7452 


7453 


7456 


7459 


7480 


7481 


7482 


7483 




7497 


7500 


7S03 


7504 


7507 


7510 


7511 


7514 


7517 


7518 


7521 


7524 


7618 


7641 


7675 




7715 


7752 


7790 


78?9 


7866 


7904 


7941 


7945 


7962 


7999 


8016 
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6K7# 


7162 


7?07 


7260 


72^ 


7323 


7324 


7325 


7326 


7340 


7343 


7346 


7369 


7370 


7371 


7372 


7386 


7389 


7392 


7415 


7416 


7417 


7418 


7432 


7435 


7438 


7439 


7442 


7445 


7446 




7449 


7452 


7453 


7456 


7459 


7480 


7481 


7482 


7483 


7497 
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7503 


7504 


7507 


7510 
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7514 


7517 


7518 


7521 


7524 


7675 


7999 
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1526* 


6176* 


6181 


6186* 


6617 


7131 




















ENOCQH 


1538* 


6176* 


6183 


6186* 


6620 


7134 




















ERROR 


6186* 






























ESCAPE 


1654* 


6186* 




























GETPRI 


1278* 


6186* 




























GETSUR 


1725* 


6186* 


6627* 


























GTSUR 


6004* 


6627 
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6082* 


8056 


8057 


8058 


8059 
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NEUTST 


1585* 


6174* 


6186* 


7157 


7175 


7193 


7211 


7226 


7248 


7257 


7277 


7288 


7299 


7310 


7355 


7401 


7466 


7538 


7660 


7706 


7743 


7780 


7820 


7857 


7894 


7932 


7985 
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7636 
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8429 
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8553 
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8680 


8729 
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8746 
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8938 
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6922 
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7068 
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7117 


8044 
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8614 


8627 
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8722 


8745 


8797 


8919 
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2095* 
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8312 


8330 


8407 


8437 


8452 


8545 


8615 


8651 


8667 




8689 


87X 


8707 


8752 


8799 


8821 


8924 


8938 


8939 


8956 












RDCHR 


6037* 


8923 




























RDDEC 


6049* 






























PDLIN 


6041* 


8924 




























RDOCT 


6045* 


7048 


7069 


7118 
























REPORT 
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6186* 


























RESREG 


6057* 






























SAVREG 


6053* 






























SCOPE 


6186* 






























SCOPEX 


8840* 


8919 




























SCOPIN 
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6186* 




























SETUP 


1302* 
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6186* 


6485 
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6290 
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6661 
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6733 


6736 


6790 


6825 


6834 


6845 


6849 


6906 


6909 


6963 


6967 
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7211 


7226 
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7247 
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7288 
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7317 
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7381 
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7538 
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8567 
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8792 


8919 


8921 


8922 


8923 
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7558 
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7551 
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7589 
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.SRDDE 


3814* 
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